Renommer fichiers dans un dossier

Bonjour,

J'ai utilisé la macro suivante pour extraire le nom de chaque fichier dans un dossier:

Sub List_File()
Dim Rep As String, Fichier As String
Dim i As Integer

Rep = "C:\Users\dossier\"
File = Dir(Rep)
Do While File <> ""
    i = i + 1
    Sheets("Sheet1").Range("A" & i + 8) = File
    File = Dir
Loop
End Sub

A partir de ces noms de fichiers extrait dans la colonne A, je procède à des "encodages" sur plusieurs colonnes, qui donne un "nom finale" de fichier dans la colonne K.

Mon objectif est ensuite de renommer les fichiers de la colonne A avec les noms de la colonne K. Par exemple

Cellule A2: Pomme.xlsx - Cellule K2: Pomme-Janvier-2018-B312.xlsx.

Pouvez-vous svp m'aider?

Merci!

Bonjour,

Sub RenommerFichiers()
    Dim i%, ANom$, NNom$, rep$
    rep = "C:\Users\dossier\"
    i = 9
    With ActiveSheet
        Do While .Cells(i, 1) <> ""
            ANom = rep & .Cells(i, 1): NNom = rep & .Cells(i, 11)
            Name ANom As NNom
            i = i + 1
        Loop
    End With
End Sub

Cordialement.

Bonjour,

Cela marche parfaitement, merci beaucoup.

Rechercher des sujets similaires à "renommer fichiers dossier"