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.
Comment faire svp ? Où est l'erreur ? La macro est dans le fichier Q1
Je vous remercie,
Cordialement
Bastien
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 SubComment faire svp ? Où est l'erreur ? La macro est dans le fichier Q1
Je vous remercie,
Cordialement
Bastien
Dernière édition: