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

Signaler
Messages postés
14
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
10 novembre 2015
-
Messages postés
7413
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juin 2021
-
Bonjour
Je voudrais renommer des fichiers que j'ai dans un répertoire à partir d'une liste qui est sur un fichier excel qui contient dans une colonne les noms des anciens fichiers avec leurs extensions et dans l'autre colonne les noms des nouveaux fichiers avec leurs extensions.

par exemple j'ai un fichier a.doc dans mon répertoire et dans ma liste excel a.doc c'est l'ancien nom et le nouveau nom c'est b.doc. je voudrais renommer ce fichier automatiquement.
merci

1 réponse

Messages postés
7413
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juin 2021
637
Bonjour,

En vba faire une boucle:

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var, Var2 As Variant
Dim chemin As String 'chemin du dossier des fichiers a renommer
chemin = "C:\Users\.....\Documents\" 'a adapter toujours finir par \
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol) 'colonne A
        Var2 = FL1.Cells(NoLig, NoCol + 1) 'colonne B
        Name chemin & Var As chemin & Var2 'renommer
    Next
    Set FL1 = Nothing
End Sub

1
Merci

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

CCM 65492 internautes nous ont dit merci ce mois-ci