XL 2019 Renommer fichier excel selon table de référence Excel

[Bastien43]

Bonjour,

Je recherche à renommer des fichiers Excel selon une référence. Je m'explique.

Je dispose d'un fichier "Références" qui contient toute les correspondances. La colonne A est le nom du fichier excel (du compteur) et la colonne B est le nouveau nom souhaité du fichier excel.

Je souhaite créer une macro dans le fichier "Références" qui permettrait d'aller chercher le fichier existant de la colonne A (nom numérique ou texte) et le renommerait avec la valeur en colonne B de la ligne correspondante. Est-ce possible ?

Chaque fichier, chaque nom est bien sûr unique. Les fichiers ont qu'une seule feuille rempli de données (colonne A et B)


Comment faire ? J'ai bien sûr cherché sur le forum et je pense que ce fichier est très utile :

Renommer des fichiers en masse à partir d'une liste Excel

Bonjour à tous, J'ai un fichier Excel avec deux colonnes, une avec des noms de fichiers présents sur le disque et l'autre avec le nouveau nom que je souhaite attribuer à chacun des fichiers (qui peuvent être des word, des Excel ou des pdf). J'aurais souhaité par macro renommer en...

www.excel-downloads.com

Quelqu'un peut il m'aider ? l'erreur vient peut être du type de fichier ?

Je vous remercie pour votre aide ou toute piste permettant de solutionner ce problème.

Cordialement
Bastien

 

[Bastien43]

Bonjour,

Finalement j'ai trouvé, il suffit juste de mettre l'extension .xlsx aux noms d'origine et aux nouveaux. Cela fonctionne super bien.

Une autre piste est la suivante, aussi efficace mais pas de contrôle étape par étape :

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\BASTIEN\Desktop\Données\" 'a adapter toujours finir par \
    Set FL1 = Worksheets("FEUILLE_1") '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 & ".xlsx" As chemin & Var2 & ".xlsx" 'renommer
    Next
    Set FL1 = Nothing
End Sub