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
contrariness Messages postés 20028 Date d'inscription samedi 10 juillet 2010 Statut Membre Dernière intervention 16 décembre 2024 - 19 mars 2024 à 08:57
contrariness Messages postés 20028 Date d'inscription samedi 10 juillet 2010 Statut Membre Dernière intervention 16 décembre 2024 - 19 mars 2024 à 08:57
A voir également:
- Renommer des fichiers en masse à partir d'une liste
- Renommer des fichiers en masse - Guide
- Liste déroulante excel - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Liste déroulante en cascade - Guide
5 réponses
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
Modifié par pilas31 le 29/10/2013 à 14:15
Modifié par pilas31 le 29/10/2013 à 14:15
Bonjour,
Voici un exemple de macro qui fait le travail :
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,
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,