Nommer des fichiers en masse à partir d'une listeFermé

Question

Bonjour,
Voilà mon problème :
J'ai d'un côté une grande masse de fichiers (800) portant chacun un nom bien précis et de l'autre un fichier excel contenant la liste de ces fichiers dans un champ et dans un autre champ un nouveau nom que je souhaiterai affecter à chaque fichier.
Existe-t-il un moyen de renommer automatiquement ces fichiers ?
Merci

pilas31 · Accepted Answer

Bonjour,

Voici un exemple de  macro qui fait le travail :
Sub Renomme_fich()Dim Chemin As StringChemin = "C:\Users\.....\"For ligne = 1 To 800Name Chemin & Cells(ligne, 1) As Chemin & Cells(ligne, 2)Next ligneEnd Sub 
Dans Chemin il faut mettre le chemin du répertoire contenant les fichiers à renommer.
Dans mon exemple l'ancien nom (avec l'extension) se trouve en colonne A et le nouveau nom (toujours avec l'extension) en colonne B.
Il suffit d'adapter.
Peut-être mettre une gestion d'erreur si un fichier n'existe pas.
A+ 
Cordialement,

contrariness · Answer

Et pour ceux qui ne se sentent pas le courage de se lancer dans les macros, il existe un programme qui le fait :
http://www.antp.be/software/renamer/fr

Torticoulie · Answer

Et le tuto qui va bien:

http://www.seeyar.fr/renommer-fichiers-en-masse/

o/

Teranig · Answer

Bonjour, 

Je me permets de vous écrire sur ce thème car j'aimerais réaliser la même manipulation que philobae à savoir : nommer une masse de documents à partir d'une liste excel.

J'ai suivi la procédure indiquée par pilas31 en collant le script qu'il a mis à disposition et en adaptant à mes données (nombre de fichier différent et chemin d'accès différent) mais cela ne fonctionne pas. 

La ligne de code "Name Chemin & Cells(ligne, 1) As Chemin & Cells(ligne, 2)" s'affiche  surlignée en jaune.

Je vous prie de m'excuser de poser une question qui a déjà été traitée mais je ne vois pas d'où vient le problème.

Bonne soirée !

f3d · Answer

Bonjour
J'ai le même soucis aussi et comme message d'erreur j'ai :
pour la ligne :

Name Chemin & Cells(ligne, 1) As Chemin & Cells(ligne, 1)

j'ai le message d'erreur suivant

Erreur d'exécution BASIC.
Sous-procédure ou procédure de fonction non définie

Bonne journée

Nommer des fichiers en masse à partir d'une liste

5 réponses

Discussions similaires

Newsletters