renommer des onglets sauf 1

[Brigitte]

Bonjour le forum,

Je souhaiterais renommer tous les onglets
de mon classeur en toto1, toto2, etc...
sauf un onglet que je laisse à son nom d'origine
"Menu" comment s'y prendre???

Merci à ceux qui passent du temps sur ce problème.

@Brigitte

 

[A_binouze_drinker_among_others]

i=1
for each sh in sheets
if sh.name <>"Menu" then sh.name="toto" & i : i=i+1
next sh

 

[Brigitte]

Bonjour Binouze,

Merci, c'est ce que je voulais, Tu es trés actif sur le forum.

@brigitte

 

[Brigitte]

Re bonjour Binouze,

Je viens d'essayer ton code ça ne marche pas,
ou est l'erreur?

@Brigitte

 

[Mytå]

Bonjour le forum

Brigitte , il fonctionne bien son code

au pire modifier

Option Explicit
Sub renommer()
Dim i As Integer, sh As Object
i = 1
For Each sh In Sheets
If sh.Name <> "Menu" Then sh.Name = "toto" & i: i = i + 1
Next
End Sub

 

[Brigitte]

Bonjour Myta, Bonjour le forum,

Merci pour le complément VBA, maintenant ça marche.
Je suis débutante VBA alors il faut tout me placer.

Merci

@Brigitte