Renommer fichiers dans un dossier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
lejack02
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 19 novembre 2016
Version d'Excel : 2013

Message par lejack02 » 8 novembre 2018, 17:43

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!
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 448
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 8 novembre 2018, 18:23

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.
l
lejack02
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 19 novembre 2016
Version d'Excel : 2013

Message par lejack02 » 9 novembre 2018, 09:02

Bonjour,

Cela marche parfaitement, merci beaucoup.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message