Comment renommer plusieurs fichiers d'un dossier dans Excel ?
La plupart d'entre nous sont peut-être confrontés à ce problème où nous devons renommer plusieurs fichiers dans un dossier. Renommer les noms de fichiers un par un pourrait nous rendre fous s'il y a des centaines ou des milliers de fichiers dans ce dossier. Existe-t-il des bonnes fonctions pour nous aider à gérer cette tâche ?
Étape 1 : Liste tous les noms de fichiers d'un dossier spécifique dans une feuille de calcul avec Kutools pour Excel
Étape 2 : Renomme plusieurs fichiers d'un dossier dans Excel avec du code VBA
Liste tous les noms de fichiers d'un dossier spécifique dans une feuille de calcul avec Kutools pour Excel
S'il y a plusieurs fichiers que vous souhaitez renommer, commencez par lister les anciens noms de fichiers dans une colonne de la feuille de calcul, puis entrez les nouveaux noms de fichiers que vous souhaitez utiliser comme remplacement. Pour lister rapidement tous les fichiers dans la feuille de calcul, vous pouvez utiliser l'utilitaire Liste des noms de fichiers de Kutools pour Excel.
Après avoir installé Kutools pour Excel, veuillez procéder comme suit : ( Téléchargement gratuit de Kutools pour Excel maintenant )
1. Cliquez sur Kutools Plus > Importer & Exporter > Liste des noms de fichiers, voir capture d'écran :
2. Dans la Liste des noms de fichiers boîte de dialogue, cliquez sur le bouton pour choisir le dossier contenant les fichiers que vous souhaitez lister, puis cliquez sur Tous les fichiers dans le Type de fichier, voir capture d'écran :
3. Ensuite, cliquez sur le bouton OK, tous les noms de fichiers ont été listés dans une colonne d'une nouvelle feuille de calcul, ainsi que certains attributs de fichier. Vous pouvez maintenant supprimer les autres colonnes non désirées et ne garder que la colonne Nom du fichier, voir capture d'écran :
Cliquez ici pour en savoir plus sur cette fonctionnalité Liste des noms de fichiers…
Téléchargement gratuit de Kutools pour Excel maintenant
Renommez plusieurs fichiers d'un dossier dans Excel avec du code VBA
Après avoir listé tous les noms de fichiers d'origine dans la colonne A, vous devez taper les nouveaux noms de fichiers dans la colonne B comme indiqué dans la capture d'écran suivante :
Et voici un code VBA qui peut vous aider à remplacer les anciens noms de fichiers par les nouveaux noms de fichiers en une seule fois. Veuillez suivre les étapes ci-dessous :
1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.
Code VBA : Renommer plusieurs fichiers dans un dossier
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. Après avoir collé le code, appuyez sur la touche F5 pour exécuter ce code, et dans la fenêtre Parcourir, sélectionnez le dossier dans lequel vous souhaitez modifier les noms de fichiers, voir capture d'écran :
4. Puis cliquez sur OK, tous les anciens noms de fichiers ont été immédiatement remplacés par les nouveaux noms de fichiers. Voir captures d'écran :
![]() | ![]() | ![]() |
Remarques :
1. Lorsque vous listez vos anciens et nouveaux noms de fichiers, l'extension de fichier doit être incluse.
2. Dans le code ci-dessus, la référence A:A indique la liste des noms de fichiers d'origine que vous souhaitez renommer, et la référence B contient les nouveaux noms de fichiers que vous souhaitez utiliser. Vous pouvez les modifier selon vos besoins.
Démo : Renommer plusieurs fichiers d'un dossier dans Excel
Articles connexes :
Comment créer des feuilles de calcul séquentielles à partir d'une plage de cellules dans Excel ?
Comment renommer plusieurs feuilles de calcul dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 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
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !