Comment déplacer des fichiers spécifiques d'un dossier à un autre dans Excel?
Supposons que j'ai un grand dossier qui contient des types de fichiers, tels que docx, jpg, xlsx, etc. comme illustré ci-dessous. Maintenant, je souhaite déplacer certains types de fichiers spécifiques du dossier vers un autre nouveau dossier sans les déplacer un par un manuellement. Avez-vous de bonnes idées pour résoudre cette tâche dans Excel?
Déplacer des fichiers spécifiques d'un dossier vers un autre dossier avec le code VBA
Déplacer des fichiers spécifiques d'un dossier vers un autre dossier avec le code VBA
Pour déplacer tous les types de fichiers spécifiques d'un dossier à un autre aussi rapidement que vous le souhaitez, le code VBA suivant peut vous aider, procédez comme suit:
1. Maintenez enfoncé ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: déplacez des types de fichiers spécifiques d'un dossier à un autre:
Sub MoveFiles()
'Updateby Extendoffice
Dim xFd As FileDialog
Dim xTFile As String
Dim xExtArr As Variant
Dim xExt As Variant
Dim xSPath As String
Dim xDPath As String
Dim xSFile As String
Dim xCount As Long
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Please select the original folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xFd.Title = "Please select the destination folder:"
If xFd.Show = -1 Then
xDPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
xExtArr = Array("*.xlsx*", "*.jpg")
For Each xExt In xExtArr
xTFile = Dir(xSPath & xExt)
Do While xTFile <> ""
xSFile = xSPath & xTFile
FileCopy xSFile, xDPath & xTFile
Kill xSFile
xTFile = Dir
xCount = xCount + 1
Loop
Next
MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub
Notes: Dans le code ci-dessus, "* .xlsx *""* .jpg"dans le script: xExtArr = Tableau ("*. xlsx *", "* .jpg") sont les types de fichiers que vous souhaitez déplacer, vous pouvez les remplacer par d'autres ou ajouter d'autres types de fichiers selon vos besoins.
3. Puis appuyez F5 clé pour exécuter ce code, et une fenêtre est apparue pour vous rappeler de sélectionner le dossier d'origine où vous souhaitez déplacer les fichiers, voir capture d'écran:
4. Puis clique OK, et une autre fenêtre apparaît, veuillez choisir le dossier de destination vers lequel vous souhaitez déplacer les fichiers, voir capture d'écran:
5. Et puis cliquez OK, une boîte de dialogue apparaîtra pour vous rappeler combien de fichiers ont été déplacés, fermez-le et vous pouvez voir les fichiers jpg, xlsx spécifiques ont été déplacés dans le dossier spécifié, voir capture d'écran:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
