Renommer des fichiers en masse à partir d'une liste

Fermé
sophiabibich Messages postés 14 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 10 novembre 2015 - 10 nov. 2015 à 11:21
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 11 nov. 2015 à 15:52
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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
11 nov. 2015 à 15:52
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