renommer des fichiers en masse à partir d'une liste

Question

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

cs_Le Pivert · Answer

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

Renommer des fichiers en masse à partir d'une liste

1 réponse

Votre réponse

Discussions similaires

Newsletters