Note: The other languages of the website are Google-translated. Back to English

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. Existe-t-il de bonnes fonctions pour nous permettre de faire face à cette tâche?

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

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


Si vous souhaitez renommer plusieurs fichiers, vous pouvez tout d'abord répertorier les anciens noms de fichiers dans une colonne de feuille de calcul, puis entrer les nouveaux noms de fichiers par lesquels vous souhaitez remplacer. Pour répertorier rapidement tous les fichiers de la feuille de calcul, vous pouvez utiliser le Kutools pour Excel's Liste des noms de fichiers utilitaire.

Après l'installation de Kutools pour Excel, veuillez procéder comme suit :( Téléchargez gratuitement Kutools pour Excel maintenant )

1Cliquez sur Kutools Plus > Import & Export > Liste des noms de fichiers, voir capture d'écran:

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

doc-rename-plusieurs-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 indésirables et ne laisser que le Nom du fichier colonne, voir capture d'écran:

doc-rename-plusieurs-fichiers-1

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

Téléchargez gratuitement Kutools pour Excel maintenant


Après avoir répertorié tous les noms de fichiers d'origine dans une colonne A, et vous devez taper les nouveaux noms de fichiers dans la colonne B comme illustré ci-dessous:

doc-rename-plusieurs-fichiers-1

Et ici, je vais parler d'un code VBA qui peut vous aider à remplacer les anciens noms de fichiers par les nouveaux noms de fichiers à la fois. Veuillez suivre les étapes suivantes:

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

2Cliquez sur 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, veuillez appuyer sur F5 clé pour exécuter ce code, et dans le DECOUVREZ fenêtre, sélectionnez le dossier dans lequel vous souhaitez modifier les noms de fichiers, voir capture d'écran:

doc-rename-plusieurs-fichiers-1

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

doc-rename-plusieurs-fichiers-1 2 doc-rename-plusieurs-fichiers-1

Notes:

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 souhaitez renommer et référence B contient les nouveaux noms de fichiers que vous souhaitez utiliser, vous pouvez les modifier selon vos besoins


Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement 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?


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (36)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Cher tous, Comment puis-je changer les DOSSIERS de la même manière que ci-dessus ? Pourriez-vous s'il vous plaît m'aider avec ce problème? La question est : Comment renommer plusieurs DOSSIERS d'un dossier dans Excel ? Bien à vous!
Ce commentaire a été minimisé par le modérateur sur le site
Que dois-je modifier dans le code ci-dessus si mes anciens et nouveaux noms ne commencent pas avant la ligne 11. J'ai changé cette ligne "xRow = Application.Match(xFile, Range("C11:C5000"), 0)" mais il n'a pas fonctionné.
Ce commentaire a été minimisé par le modérateur sur le site
Pas grave, j'ai compris. Merci. " xRow = Application.Match(xFile, Range("C:C"), 11)"
Ce commentaire a été minimisé par le modérateur sur le site
Comment renommer des fichiers contenant des caractères chinois dans leur nom. S'il vous plaît aidez-le
Ce commentaire a été minimisé par le modérateur sur le site
Surpris (un peu) de voir quelqu'un utiliser la même syntaxe pour nommer les vars (xDir, par exemple). Il permet des variables exceptionnellement bien nommées qui n'entrent pas en conflit avec les noms système (par exemple, Dir ou Date). J'utilise également 'z' pour les fonctions globales (par exemple, zMsg, qui renvoie vrai ou faux plutôt que vbOK ou vbCancel) et 'y' pour les constantes (par exemple, yCR pour vbNewline et yCR2 pour deux d'entre elles). Bon travail et bonne réflexion de votre part. Vous devez être très intelligent !
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de renommer juste une partie d'un nom de fichier sans déclarer le nom de fichier complet et l'extension dans la feuille Excel ? c'est-à-dire changer 123-yz.jpg en abc-yz.jpg mais je sais seulement que 123 doit être remplacé par abc sur chaque image du dossier ?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé avec succès les instructions ci-dessus l'année dernière pour renommer des fichiers dans une demi-douzaine de dossiers. Cela a si bien fonctionné que j'ai enregistré les instructions pour une utilisation future. J'ai récemment essayé de l'utiliser à nouveau, mais après avoir collé la macro ci-dessus dans la fenêtre Module lorsque j'appuie sur F5 au lieu d'obtenir une fenêtre de navigateur pour sélectionner le dossier souhaité, j'obtiens une nouvelle boîte de dialogue m'invitant à entrer un nom de macro. Aucune suggestion? J'ai généralement environ 3 à 4 fois par an où je dois renommer des fichiers de cette façon, et j'étais très excité quand cela a fonctionné l'année dernière.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai plus de 100 fichiers Excel que j'ai téléchargés à partir d'un système et conservés dans le dossier. Tous ces fichiers ont une feuille nommée comme Contenu. Je veux que ces fichiers Excel soient nommés en utilisant le texte disponible dans la cellule AA2 du respectif Contenu drap. De sorte que le nom dans cette cellule AA2 sera exactement le nom de fichier de ce fichier Excel respectif. tous les fichiers du dossier doivent être renommés de la même manière. S'il vous plaît suggérer une macro qui peut fonctionner de cette façon.
Ce commentaire a été minimisé par le modérateur sur le site
Salut. Votre tâche est-elle déjà résolue. ? Je peux aider si toujours non résolu. Veuillez m'envoyer votre tâche. Tx Franz
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup monsieur, que Dieu vous bénisse !
Ce commentaire a été minimisé par le modérateur sur le site
Chers tous, Essayez KrojamSoft BatchRename pour renommer les fichiers par lots, c'est très facile à utiliser.
Ce commentaire a été minimisé par le modérateur sur le site
Je l'ai essayé pour Excel, il change le type de fichier. Pouvez-vous s'il vous plaît me fournir le code pour renommer les fichiers csv.
Ce commentaire a été minimisé par le modérateur sur le site
Je suggère d'essayer KrojamSoft BatchRename
Ce commentaire a été minimisé par le modérateur sur le site
je veux faire un combo d'images par exemple j'ai 33 images et je veux créer un combo d'images les unes avec les autres, veuillez trouver en pièce jointe j'ai 10000 images supplémentaires afin que je puisse créer en 1 clic plusieurs images. veuillez appeler ou envoyer un courriel à caparnasingla@gmail.com
Ce commentaire a été minimisé par le modérateur sur le site
salut, des codes incroyables, m'ont fait gagner beaucoup de temps.. merci beaucoup..
Ce commentaire a été minimisé par le modérateur sur le site
Pour renommer les multiples fichiers, vous pouvez également consulter un logiciel. Recherche sur Google - BatchRenameFiles Tool. Vérifiez le premier résultat de recherche.


Merci
Jonathan F.
Ce commentaire a été minimisé par le modérateur sur le site
Cela change la donne. Merci beaucoup!!!
Ce commentaire a été minimisé par le modérateur sur le site
Je voudrais renommer plusieurs fichiers à partir de dossiers et sous-dossiers. Donc, je pense qu'un code VBA regarde le chemin qu'il y a dans la colonne "Dossier contenant" (je coche la case "Inclure les fichiers dans les sous-répertoires") Je ne suis pas assez bon pour coder VBA, mais je regarde et essaie de comprendre . Merci
Ce commentaire a été minimisé par le modérateur sur le site
Je ne comprends pas avec la plage (A: A) ou (B) comment définir cela, merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut Dee,

Comme la note le rappelle, la référence A:A indique l'ancienne liste de noms de fichiers que vous souhaitez renommer, et la référence B contient les nouveaux noms de fichiers que vous souhaitez utiliser
, comme la capture d'écran suivante illustrée :

J'espère que cela pourra vous aider, merci !
Ce commentaire a été minimisé par le modérateur sur le site
Je suis le même processus mais je n'ai pas réussi à renommer le fichier que je modifie également ("A: A") et ("B"). Y a-t-il une autre valeur que je dois changer dans le code
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, certains fichiers portent le même nom. Les scripts ignorent ces fichiers. Existe-t-il un moyen de modifier le script afin qu'il ajoute un numéro 1, 2, 3 et ainsi de suite pour chaque nom en double ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Kay,
Pour renommer les fichiers en fonction de nouveaux noms en double avec nom-1, nom-2, le code VBA suivant peut vous aider, veuillez l'essayer.

Remarque : Après avoir collé ce code, vous devez référencer l'option Microsoft Scripting Runtime dans la boîte de dialogue References-VBAProject comme illustré ci-dessous.

Sous RenommerFichiers()
Dim xDir en tant que chaîne
Estomper xFile en tant que chaîne
Dim xVal en tant que chaîne
Dim xRow As Long
Dim xCount As Long
Dim xTemp aussi longtemps
Dim xDictionary comme nouveau dictionnaire
Application.ScreenUpdating = Faux
On Error Resume Next
Avec Application. FileDialog (msoFileDialogFolderPicker)
.AllowMultiSelect = Faux
Si .Show = -1 Alors
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Faire jusqu'à xFile = ""
xLigne = 0
xRow = Application.Match(xFile, Range("A:A"), 0)
Si xRow > 0 Alors
xCompte = 0
xVal = Cellules(xLigne, "B").Valeur
Sinon xDictionary.Exists(xVal) Alors
xDictionary.Add xVal, xCount
autre
xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
xTemp = InStrRev(xVal, ".")
Cellules(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
Si fin
Nom xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
Si fin
xFichier = Dir
boucle
Si fin
Terminer par
Application.ScreenUpdating = True
End Sub
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL