Renommer des fichiers en masse à partir d'une liste Excel

[jozerebel]

Bonjour à tous,

J'ai un fichier Excel avec deux colonnes, une avec des noms de fichiers présents sur le disque et l'autre avec le nouveau nom que je souhaite attribuer à chacun des fichiers (qui peuvent être des word, des Excel ou des pdf).

J'aurais souhaité par macro renommer en automatique les fichiers à partir de cette base de données.

Une idée pour m'aider?

D'avance merci!

 

[MJ13]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Bonjour Jozerebel

Normalement, on peut utiliser l'instruction name:

Exemple:

Name oldpathname As newpathname

 

[Staple1600]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Bonjour à tous, MJ13

jozerebel
J'ajouterai à ce que viens de dire MJ13
Normalement un membre inscrit depuis 2007 n'ignore plus qu'il a le loisir d'utiliser le moteur de recherche pour trouver dans les archives du forum des discussions similaires à la question qu'il est sur le point de poser.
Car ta question a déjà été posé un grand nombre de fois sur le forum, par conséquent elle est déjà résolue et n'attends plus que tu utilises la loupe (en haut à droite) pour trouver le code VBA déjà là et le copier dans ton classeur.

PS: Ce judicieux conseil n'est pas de moi.
Il est inscrit dans la charte du forum au moins depuis 2005

 

[jozerebel]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Salut à vous deux,

Effectivement, trop la flemme ce matin...

Je regarde dans les posts. Merci !

 

[Staple1600]

Re : [RESOLU] Renommer des fichiers en masse à partir d'une liste Excel

Re

jozerebel
Alors histoire de préserver ta flemme, un exemple de discussion traitant du même sujet pris au hasard
https://www.excel-downloads.com/threads/renommer-un-grand-nombre-de-fichier.218995/

 

[jozerebel]

Re : [RESOLU] Renommer des fichiers en masse à partir d'une liste Excel

Salut à tous,

Je réouvre la discussion...

La macro ne renomme rien du tt...
Une aide svp?


Sub Renommer()
On Error Resume Next
Dim i As Integer

i = 2
While Cells(i, 3) <> 0
i = i + 1
Cells(i, 3).Select

'MsgBox (Range("C" & i))
Name "G:\PEC2\natifs2\" & Range("C" & i) As "G:\PEC2\natifs\" & Range("D" & i)
Wend
'Range("A1").Select

End Sub

 

[Staple1600]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Bonsoir à tous

jozerebel
Tu as cliqué sur le lien de mon précédent message?
Et testé par exemple cette macro de job75
https://www.excel-downloads.com/threads/renommer-un-grand-nombre-de-fichier.218995/

 

[jozerebel]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Salut Staple1600 !

En fait les fichiers ont des extensions différentes, dc je ne sais pas comment adapter...

Par ailleurs, len -4, je comprends pas trop...

 

[MJ13]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Re

Bon, à un moment, faut arrêter le délire.

Normalement cela devrait fonctionner. Pour voir, tu testes avec un code où tu mets les noms des fichiers et dossiers en dur puis tu débug pour voir où cela coince.

 

[Roland_M]

Re : Renommer des fichiers en masse à partir d'une liste Excel

bonjour à tous

je suppose que tu as:
Colonne A les noms des fichiers existants avec leurs extensions
Colonne B les noms des fichiers nouveaux avec leurs extensions
peut être as-tu le chemin sinon ici saisie par boite de dialogue

voir ci-joint !?
ça fonctionne car je viens de le faire et de le tester !

 

[MJ13]

Re : Renommer des fichiers en masse à partir d'une liste Excel

Re, Bonjour Roland

Un autre exemple à tester et à adapter.

 

[Mofit]

Re : Renommer des fichiers en masse à partir d'une liste Excel

bonjour à tous

je suppose que tu as:
Colonne A les noms des fichiers existants avec leurs extensions
Colonne B les noms des fichiers nouveaux avec leurs extensions
peut être as-tu le chemin sinon ici saisie par boite de dialogue

voir ci-joint !?
ça fonctionne car je viens de le faire et de le tester !

Bonjour,

Je confirme ça marche au top !
Merci !

 

[amoros]

Bonjour,
Merci beaucoup pour la macro
Roland_M
Cela m'as beaucoup dans mon travailet gagné des heures de renommage !
Merci

 

[Dodie23]

Bonjour,
merci @Roland_M pour les macros (liste des noms de fichiers et modifier les noms de fichiers), c'est très utile et parfait pour ne pas perdre des heures et potentiellement faire des erreurs de frappe.
Je rejoins amoros !