Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Bastien43

XLDnaute Occasionnel
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 :


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
 

Pièces jointes

  • Référence.zip
    102.9 KB · Affichages: 9
Dernière édition:

Bastien43

XLDnaute Occasionnel
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 :

VB:
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…