Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment renommer plusieurs fichiers d'un dossier dans Excel?

Peut-être que la plupart d'entre nous souffrent de ce problème que nous devons renommer plusieurs fichiers dans un dossier, renommer les noms de fichiers un par un nous rendra fous s'il y a des centaines ou des milliers de fichiers dans ce dossier. Y a-t-il de bonnes fonctions pour nous de faire face à cette tâche?

Liste tous les noms de fichiers d'un dossier spécifique dans la feuille de calcul avec kutools pour Excel

Renommez plusieurs fichiers d'un dossier dans Excel avec le code VBA



Si vous souhaitez renommer plusieurs fichiers, vous pouvez d'abord lister les anciens noms de fichiers dans une colonne de feuille de calcul, puis entrer les nouveaux noms de fichiers que vous souhaitez remplacer. Pour lister rapidement tous les fichiers dans la feuille de calcul, vous pouvez utiliser le Kutools for Excel's Liste de noms de fichiers utilitaire.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, s'il vous plaît faire comme suit :( Téléchargement gratuit Kutools for Excel maintenant )

1. Cliquez Entreprise > Import / Export > Liste de noms de fichiers, voir capture d'écran:

doc-rename-multiple-fichiers-1

2. Dans le Liste de noms de fichiers boîte de dialogue, cliquez sur doc-rename-multiple-fichiers-1 Cliquez sur le bouton pour choisir le dossier dans lequel vous souhaitez répertorier les fichiers, puis cliquez sur Tous les fichiers du Type de fichiers, voir capture d'écran:

doc-rename-multiple-fichiers-1

3. Puis clique OK bouton, tous les noms de fichiers ont été listés dans une colonne d'une nouvelle feuille de calcul, ainsi que certains attributs de fichier, et maintenant, vous pouvez supprimer d'autres colonnes non désirées et ne laisser que le Nom du fichier colonne, voir capture d'écran:

doc-rename-multiple-fichiers-1

Cliquez pour en savoir plus sur cette fonctionnalité de liste de noms de fichiers ...

Téléchargement gratuit Kutools for Excel maintenant


Après la liste de tous les noms de fichiers d'origine dans une colonne A, et vous devez taper de nouveaux noms de fichiers dans la colonne B comme suivant capture d'écran montré:

doc-rename-multiple-fichiers-1

Et ici, je vais parler d'un code VBA qui peut vous aider à remplacer les anciens noms de fichiers avec les nouveaux noms de fichiers à la fois. S'il vous plaît faire avec les étapes suivantes:

1. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour Applications fenêtre.

2. Cliquez insérer > Moduleet collez la macro suivante dans le Fenêtre du 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 F5 clé pour exécuter ce code, et dans le Feuilleter fenêtre, sélectionnez le dossier dans lequel vous voulez changer les noms de fichiers, voir capture d'écran:

doc-rename-multiple-fichiers-1

4. Et puis cliquez OK, tous les anciens noms de fichiers ont été remplacés par les nouveaux noms de fichiers immédiatement. Voir les captures d'écran:

doc-rename-multiple-fichiers-1  2 doc-rename-multiple-fichiers-1

À noter :

1. Lorsque vous répertoriez 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 l'ancienne liste de noms de fichiers que vous voulez renommer, et la référence B contient les nouveaux noms de fichiers que vous souhaitez utiliser, vous pouvez les modifier selon vos besoins


Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Articles Liés:

Comment créer des feuilles de calcul de séquence à partir d'une plage de cellules dans Excel?

Comment renommer plusieurs feuilles de calcul dans Excel?



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jayakumar · 6 months ago
    Hi,

    I'm trying to use the code for renaming the non extension files to files with extension. it doesn't work. It works fine with files which have extension already.

    Thanks
    Jay
  • To post as a guest, your comment is unpublished.
    cda · 7 months ago
    Thank you so much...
  • To post as a guest, your comment is unpublished.
    Gee Kay · 9 months ago
    Hello, some of the files have same name. Scripts skip those files. Is there a way to modify the script so it adds a number 1, 2, 3 and so on for every duplicate name?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Kay,
      To rename the files based on duplicate new names with name-1,name-2, the following VBA code may help you, please try it.

      Note: After pasting this code, you should reference the Microsoft Scripting Runtime option in the References-VBAProject dialog box as below screenshot shown.

      Sub RenameFiles()
      Dim xDir As String
      Dim xFile As String
      Dim xVal As String
      Dim xRow As Long
      Dim xCount As Long
      Dim xTemp As Long
      Dim xDictionary As New Dictionary
      Application.ScreenUpdating = False
      On Error Resume Next
      With Application.FileDialog(msoFileDialogFolderPicker)
      .AllowMultiSelect = False
      If .Show = -1 Then
      xDir = .SelectedItems(1)
      xFile = Dir(xDir & Application.PathSeparator & "*")
      Do Until xFile = ""
      xRow = 0
      xRow = Application.Match(xFile, Range("A:A"), 0)
      If xRow > 0 Then
      xCount = 0
      xVal = Cells(xRow, "B").Value
      If Not xDictionary.Exists(xVal) Then
      xDictionary.Add xVal, xCount
      Else
      xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
      xTemp = InStrRev(xVal, ".")
      Cells(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
      End If
      Name xDir & Application.PathSeparator & xFile As _
      xDir & Application.PathSeparator & Cells(xRow, "B").Value
      End If
      xFile = Dir
      Loop
      End If
      End With
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Hemant · 1 years ago
    I am following the same process but couldn't succeeded in renaming the file i am also changing ("A:A") and ("B"). Is there any other valuve which i need to change in the code
  • To post as a guest, your comment is unpublished.
    Dee · 1 years ago
    I cant understand with range ( A:A) or (B) how to define that, thank you
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Dee,

      As the note remind, the reference A:A indicates the old filenames list you want to rename, and reference B contains the new filenames that you want to use
      , as following screenshot shown:

      Hope this can help you, thank you!