Renommer des modules par lots

Essai ça....
denis p.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''
'renommer le CodeName des feuilles de calcul d'un classeur
'(permet de remettre en ordre les CodeName des feuilles qui
'provoquent des erreurs après de multiples copies qui
'génèrent des CodeName

Sub RenameCodeNames()
On Error Resume Next
i = 0

For Each ws In ActiveWorkbook.Worksheets
i = i + 1
ws.Parent.VBProject.VBComponents(ws.CodeName). _
Properties("_CodeName") = "toto" & i
On Error GoTo 0
Next ws

End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''

"galopin01" <roger.mazurczak@laposte.fr> a écrit dans le message de
news:uYZVzKU3EHA.4064@tk2msftngp13.phx.gbl...

Bonsoir,
Dans des classeurs très volumineux (en nombre de feuilles) quand on est
dans

l'Explorateur de Projet il est parfois pénible de retrouver les modules
après plusieurs dizaines voire centaine de Feuil1, Feuil2...
(On ne rigole pas sur les classeurs à 365 feuilles SVP ! )
Quelqu'un peut-il me fournir la boucle For ... magique qui va me renommer
toutes les "FeuilXXX" en "zFeuilXXX" qui se retrouveraient alors en fin de
liste. (Je parle du Nom VBA of course, le nom de la feuille dans le
classeur

n'intervenant pas...)
Merci

bonjour,

On Error Resume Next


For Each ws In ActiveWorkbook.Worksheets
ws.Parent.VBProject.VBComponents(ws.CodeName). _
Properties("_CodeName") = "Z" &
ws.Parent.VBProject.VBComponents(ws.CodeName). _
Properties("_CodeName")
Next ws

A+

Bonsoir,
Dans des classeurs très volumineux (en nombre de feuilles) quand on est dans
l'Explorateur de Projet il est parfois pénible de retrouver les modules
après plusieurs dizaines voire centaine de Feuil1, Feuil2...
(On ne rigole pas sur les classeurs à 365 feuilles SVP ! )
Quelqu'un peut-il me fournir la boucle For ... magique qui va me renommer
toutes les "FeuilXXX" en "zFeuilXXX" qui se retrouveraient alors en fin de
liste. (Je parle du Nom VBA of course, le nom de la feuille dans le classeur
n'intervenant pas...)
Merci