Nommer des fichiers en masse à partir d'une liste [Fermé]

Signaler
Messages postés
1
Date d'inscription
samedi 26 octobre 2013
Statut
Membre
Dernière intervention
26 octobre 2013
-
 f3d -
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

5 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
585
Bonjour,

Voici un exemple de macro qui fait le travail :
Sub Renomme_fich()
Dim Chemin As String
Chemin = "C:\Users\.....\"
For ligne = 1 To 800
Name Chemin & Cells(ligne, 1) As Chemin & Cells(ligne, 2)
Next ligne
End 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,
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
15861
Date d'inscription
samedi 10 juillet 2010
Statut
Membre
Dernière intervention
13 octobre 2020
4 305
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

Et le tuto qui va bien:

http://www.seeyar.fr/renommer-fichiers-en-masse/

o/
Messages postés
1
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
8 novembre 2014

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 !
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
585
Bonsoir,

Quel est le message d'erreur qui s'affiche ?

Je pense que si c'est "fichier introuvable" alors soit un fichier à renommer n'existe pas, soit le chemin n'est pas correct (penser à bien finir par \ le chemin)

A+
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