Menu

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

Messages postés
1
Date d'inscription
samedi 26 octobre 2013
Statut
Membre
Dernière intervention
26 octobre 2013
- - Dernière réponse :  f3d - 12 janv. 2015 à 08:42
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
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
1854
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
1 avril 2019
513
6
Merci
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,

Dire « Merci » 6

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

CCM 42499 internautes nous ont dit merci ce mois-ci

Messages postés
13684
Date d'inscription
samedi 10 juillet 2010
Statut
Membre
Dernière intervention
16 juin 2019
2729
2
Merci
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
0
Merci
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
0
Merci
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 !
pilas31
Messages postés
1854
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
1 avril 2019
513 -
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+
0
Merci
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