Macro pour renommer 1 feuille

Salut,

Voici un bout de code qui renomme toutes les feuilles d'un classeur, quel
que soient leurs noms.

For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Name = "NouvelleFeuille n°" & i
Next i

Si ça ne répond pas à ta question, peux-tu nous montrer ton code
problèmatique ?

Julien

"msnews.microsoft.com" <gtoukc@wanadoo.fr> a écrit dans le message de
news:OF9iISnNEHA.2844@tk2msftngp13.phx.gbl...

Bonjour à tous,

Comment créer une macro qui renomme une ou pour plusieurs feuilles déjà
nommée.
J' ai créé une macro pour cela mais lorsque je veux la mettre en
application

sur un autre
classeur dont les feuilles sont déjà nommées, cela ne fonctionne pas......

Merci d'avance ;-))
Fr@ncis

bonjour Francis,

deux solutions possible,

Sub Macro1()
For Each f In Sheets
x = x + 1
f.Name = "zaza" & x
Next
End Sub

Sub Macro2()
For i = 1 To Sheets.Count
Sheets(i).Name = "toto" & i
Next
End Sub

isabelle

Bonjour à tous,

Comment créer une macro qui renomme une ou pour plusieurs feuilles déjà
nommée.
J' ai créé une macro pour cela mais lorsque je veux la mettre en application
sur un autre
classeur dont les feuilles sont déjà nommées, cela ne fonctionne pas......

Merci d'avance ;-))
Fr@ncis