OVH Cloud OVH Cloud

Changer CodeName

3 réponses
Avatar
ThierryP
Bonjour tout le monde !!

Après avoir farfouillé dans les recoins du newsgroup, j'appelle au
secours !!
J'essaie de changer le codename de 52 feuilles d'un classeur et toutes
les syntaxes que j'ai essayées me renvoie des erreurs aussi diverses que
variées :-((((

si quelqu'un connait une syntaxe (Excel 2002 SP3) qui passe, qu'il le
dise !!!

D'avance merci

--
@+ thierryp

3 réponses

Avatar
ThierryP
Oups.....
Quelques précisions....Je voudrais changer le codename
(Feuil1...Feuil52) et le remplacer par le nom d'onglet qui va de "1" à "52".
J'ai une feuille dont le name est "Récap", en faisant :
For Each ws In ActiveWorkbook.Worksheets
ActiveWorkbook.VBProject.VBComponents(ws.CodeName).Name = ws.Name
Next ws

tout se passe bien, dès que je passe à la feuille suivante, name du
style "1", ça bloque avec le message "La méthode Name de l'objet
VBComponent a échoué " ...????????

merci

Bonjour tout le monde !!

Après avoir farfouillé dans les recoins du newsgroup, j'appelle au
secours !!
J'essaie de changer le codename de 52 feuilles d'un classeur et toutes
les syntaxes que j'ai essayées me renvoie des erreurs aussi diverses que
variées :-((((

si quelqu'un connait une syntaxe (Excel 2002 SP3) qui passe, qu'il le
dise !!!

D'avance merci



--
@+ thierryp

Avatar
anonymousA
Bonjour,

Tout simplement parce que le code name de feuille n'accepte pas de
s'appeler avec un caractère numérique comme ceux que tu veux lui
faire accepter.Si tu appelles tes feuilles p.e Z1, Z2 et ainsi de suite
, il n'y auara aucun problème.

A+

A+

ThierryP wrote:
Oups.....
Quelques précisions....Je voudrais changer le codename
(Feuil1...Feuil52) et le remplacer par le nom d'onglet qui va de "1" à "52".
J'ai une feuille dont le name est "Récap", en faisant :
For Each ws In ActiveWorkbook.Worksheets
ActiveWorkbook.VBProject.VBComponents(ws.CodeName).Name = ws.Name
Next ws

tout se passe bien, dès que je passe à la feuille suivante, name du
style "1", ça bloque avec le message "La méthode Name de l'objet
VBComponent a échoué " ...????????

merci

Bonjour tout le monde !!

Après avoir farfouillé dans les recoins du newsgroup, j'appelle au
secours !!
J'essaie de changer le codename de 52 feuilles d'un classeur et toutes
les syntaxes que j'ai essayées me renvoie des erreurs aussi diverses que
variées :-((((

si quelqu'un connait une syntaxe (Excel 2002 SP3) qui passe, qu'il le
dise !!!

D'avance merci



--
@+ thierryp



Avatar
ThierryP
Ben zut,....moi qui pensais qu'on pouvait tout faire avec Excel au vu de
tout ce qui passe sur le forum !!!
Je m'en doutais un peu mais je voulais la confirmation des experts :-))))

Merci !

Bonjour,

Tout simplement parce que le code name de feuille n'accepte pas de
s'appeler avec un caractère numérique comme ceux que tu veux lui
faire accepter.Si tu appelles tes feuilles p.e Z1, Z2 et ainsi de suite
, il n'y auara aucun problème.

A+

A+

ThierryP wrote:
Oups.....
Quelques précisions....Je voudrais changer le codename
(Feuil1...Feuil52) et le remplacer par le nom d'onglet qui va de "1" à "52".
J'ai une feuille dont le name est "Récap", en faisant :
For Each ws In ActiveWorkbook.Worksheets
ActiveWorkbook.VBProject.VBComponents(ws.CodeName).Name = ws.Name
Next ws

tout se passe bien, dès que je passe à la feuille suivante, name du
style "1", ça bloque avec le message "La méthode Name de l'objet
VBComponent a échoué " ...????????

merci

Bonjour tout le monde !!

Après avoir farfouillé dans les recoins du newsgroup, j'appelle au
secours !!
J'essaie de changer le codename de 52 feuilles d'un classeur et toutes
les syntaxes que j'ai essayées me renvoie des erreurs aussi diverses que
variées :-((((

si quelqu'un connait une syntaxe (Excel 2002 SP3) qui passe, qu'il le
dise !!!

D'avance merci

--

@+ thierryp




--
@+ thierryp