XL 2019 Macros renommer plusieurs feuilles de plusieurs fichiers Excel

Bastien43

XLDnaute Occasionnel
Bonjour,

Je cherche à créer une macro pour renommer toutes les feuilles de manière identique dans plusieurs fichiers excel (qui sont dans un même dossier).

Voici un premier essai mais qui ne fonctionne pas.

VB:
Sub RenommeOnglets()



    Dim chemin$, fichier$

    Dim i, j

    chemin = ThisWorkbook.Path & "\" 'dossier à adapter

    fichier = Dir(chemin) '1er fichier du dossier

 

    Application.ScreenUpdating = False

 

    While fichier <> ""

 

 

        If LCase(Right(fichier, 4)) = ".xls" Or LCase(Right(fichier, 5)) Like ".xls?" Then

        

            With ThisWorkbook

                Workbooks.Open (fichier)

                    For i = 1 To Worksheets.Count

                    j = Format(i, "#")

                    ActiveWorkbook.Sheets(i).Name = "FEUILLE_" & j

                    Next i

                Workbooks(fichier).Close

            End With

        

        End If

  

    fichier = Dir 'fichier suivant

 

    Wend



    MsgBox ("Onglets mis à jour !")



End Sub

Comment faire svp ? Où est l'erreur ? La macro est dans le fichier Q1

Je vous remercie,
Cordialement
Bastien
 

Pièces jointes

  • Q2.xls
    38.5 KB · Affichages: 8
  • Q3.xls
    108 KB · Affichages: 2
  • Q1.xls
    304.5 KB · Affichages: 3
Dernière édition:

Bastien43

XLDnaute Occasionnel
Rebonjour,

J'ai réussi en adaptant cette macro


Cela fonctionne parfaitement

Bonne journée
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs