Renommer toutes les feuilles

Bonsoir le Forum,

Petite question, j' ai un fichier excel avec plusieurs feuilles, avec chacune un nom differents.

Je souhaiterai une macro qui les renomment toutes avec une couleur différentes ( par ex : Dossier 1, Dossier 2,Dossier 3......)

Merci de votre aide.

Salut,

essaye ce code

Sub Tab_Colour()

Dim aa As Integer
aa = Sheets.Count

For a = 1 To aa
    Sheets(a).Tab.ColorIndex = a
Next a
End Sub

ça marchera pour les 56 premières feuilles

Bonsoir Game Over,

Cela fonctionne à merveille pour les couleurs.

Aurais tu une idée quant au renommage automatique.

" J' ai un fichier excel avec plusieurs feuilles, avec chacune un nom differents. Je souhaiterai une macro qui les renomment toutes ( ex: Dossier 1, Dossier 2,Dossier 3....). "

Merci.

oui, il suffit de rajouter la ligne suivante

Sheets(a).Name = "Dossier " & a

comme suit

Sub Tab_Colour()

Dim aa As Integer
aa = Sheets.Count

For a = 1 To aa
    Sheets(a).Tab.ColorIndex = a
    Sheets(a).Name = "Dossier " & a
Next a
End Sub

Re

Impeccable, c'est exactement ça.

Merci de ton aide