Comment déplacer des fichiers spécifiques d’un dossier vers un autre depuis Excel ?
Supposons que j’aie un dossier volumineux contenant divers types de fichiers, tels que des fichiers .docx, .jpg, .xlsx, etc., comme illustré dans la capture d’écran suivante. Je souhaite maintenant déplacer certains types de fichiers spécifiques vers un nouveau dossier, sans les transférer un par un manuellement. Avez-vous une solution efficace pour réaliser cette tâche depuis Excel ?
Déplacer des fichiers spécifiques d’un dossier vers un autre à l’aide d’un code VBA
Déplacer des fichiers spécifiques d’un dossier vers un autre à l’aide d’un code VBA
Pour déplacer rapidement tous les fichiers d’un type spécifique d’un dossier vers un autre, le code VBA suivant vous sera utile. Procédez comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : déplacer des Type de fichier spécifiques d’un dossier vers 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
Remarque : dans le code ci-dessus, les éléments «*.xlsx*» et «*.jpg» présents dans le script :xExtArr = Array(«*.xlsx*», «*.jpg») correspondent aux types de fichiers que vous souhaitez déplacer. Vous pouvez les modifier ou ajouter d’autres types de fichiers selon vos besoins.
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une fenêtre s’ouvre alors afin de vous demander de sélectionner le dossier d’origine à partir duquel vous souhaitez déplacer les fichiers, comme illustré ci-dessous :
4. Cliquez ensuite sur OK, puis une autre fenêtre apparaît. Choisissez le dossier de destination vers lequel vous souhaitez déplacer les fichiers, comme illustré ci-dessous :
5. Cliquez ensuite sur OK. Une boîte de dialogue s’affiche alors pour vous indiquer combien de fichiers ont été déplacés. Fermez-la, et vous verrez que les fichiers JPG et XLSX spécifiques ont bien été transférés dans le dossier indiqué, comme illustré ci-dessous :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels