Nommer des fichiers en masse à partir d'une liste

Fermé
Philobae
Messages postés
1
Date d'inscription
samedi 26 octobre 2013
Statut
Membre
Dernière intervention
26 octobre 2013
- 26 oct. 2013 à 11:05
 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

5 réponses

pilas31
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
631
Modifié par pilas31 le 29/10/2013 à 14:15
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,
11