XL 2019 Macros renommer plusieurs feuilles de plusieurs fichiers Excel

[Bastien43]

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.

​

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

 

[Bastien43]

Rebonjour,

J'ai réussi en adaptant cette macro

VBA ouvir modifier fermer des classeurs

Bonsoir à toutes et tous, suite à la modifation d'une feuille dans un classeur, je souhaiterais y insérer module qui aurait pour but de: 1 ) ouvrir les uns après les autres, tous les classeurs qui se trouvent dans un chemin c:\mes documents... 2 ) remplacer la feuil1 du classeur que je viens...

www.excel-downloads.com

Cela fonctionne parfaitement

Bonne journée

 

[kasper2004]

Salut,
pourrais-tu partager le code stp?
Merci

 

[Bastien43]

Salut,
pourrais-tu partager le code stp?
Merci

Bonjour
Je n ai plus l excel mais je m'étais aidé de la conversation ci dessus
Cordialement