Modifier le "CodeName"

Bonsoir à tous

J'aimerais savoir si il est possible de modifier le "CodeName" d'un onglet par code.

On récupère le CodeName avec :

Code:

---

Cname = Worksheets("Feuil1").CodeName

---

qui nous donne par exemple : Feuil4,

mais pour modifier :

Code:

---

1 2 3

Worksheets("Feuil1").CodeName = "mafeuille" ' ou Worksheets(Feuil4).CodeName = "mafeuille"

---

ne fonctionnent pas.

Dans l' "explorateur d'objets" , il est spécifié "Lecture seule", mais on peut modifier par F4, donc .....

Merci d'avance

Eric

bonsoir,
un exemple pour changer toutes les feuilles en XXXi

Code:

---

1 2 3 4 5 6 7

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

---

Re

Merci, mais cela ne fonctionne pas chez moi

Eric

Fonctionnel et testé chez moi en version 2003.
pour une feuille précise

Code:

---

1 2 3 4 5

Set ws = Sheets("Feuil2") On Error Resume Next ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "NouveauCodeName" On Error GoTo 0 Set ws = Nothing

---

Re

Merci, celle-ci fonctionne aussi chez moi, mais l'autre non.

Je viens de trouver ceci :

Code:

---

1 2 3

With ThisWorkbook .VBProject.VBComponents(.Worksheets("ancien_nom").CodeName).Name = "NouveauNom" End With

---

de SilkyRoad bien entendu, pour une nouvelle fois merci Michel

Bonne nuit

Eric

Bonjour

Code:

---

1 2 3 4

Dim sh As Worksheet   Set sh = Worksheets("feuil1") sh.[_CodeName] = "Pierre"

---

Attention, la saisie automatique corrige la ligne sh.[_codename] en sh.Codename. Il faut "resaisir" sur la correction

Bonjour à tous
Bonjour mercatog, Pierre Fauconnier

Merci Pierre, mais je ne comprends pas :

Citation:

---

Envoyé par Pierre Fauconnier

Bonjour
Attention, la saisie automatique corrige la ligne sh.[_codename] en sh.Codename. Il faut "resaisir" sur la correction

---

Qu'entends-tu par "saisie automatique", le lancement de la macro par un bouton, par exemple ? j'ai fait plusieurs essais, et tout se passe bien. (2003)

Bonne journée

Eric

Bonjour Eric,

Non, ce que je veux dire, c'est que lorsque je saisis

Code:

---

feuil1.[_codename]="Pierre"

---

VBA corrige automatiquement en

Code:

---

feuile1.Codename

---

et que je dois donc retaper [_codename]

Tant mieux s'il n'y a que moi qui ai cette bizarrerie...

Le principal, c'est que l'astuce fonctionne et que tu puisses modifier le codename... ;)

Bonjour,

Citation:

---

Tant mieux s'il n'y a que moi qui ai cette bizarrerie...

---

Bizarrerie, il y a bien (2003,2007) ;)

En fait la chose se matérialise si on utilise l'aide à la saisie quand le menu apparaît et reste après le [_ si on fait tab, l'aide à la saisie opère la transformation (elle ne doit connaître que cette syntaxe), si on continue manuellement, en minuscule, la correction avec Majuscule s'opère, mais sans modif, il en est de même si on fait un copier-coller de la ligne ;)

donc pas illogique, mais de quoi tourner bourrique si on n'est jamais tombé dessus, ce qui était mon cas avant de lire ce post :D

Pierre parlait bien de "Saisie automatique" d'ailleurs ;)

cordialement,

Didier

Re

Merci Pierre et Didier pour vos explications.

Comme j'avais fait un copier/coller, je n'ai pas eu ce problème. Après essai de "Saisie automatique" (ça y est, je suis réveillé ;)), j'ai également le changement.

Bonne journée

Eric

Merci beaucoup pour l'astuce Sh.[_CodeName]

Tellement simple...

Bonne journée !

Bonjour, je comprends que les crochets servent à évaluer une expression, mais que signifie le "_" ?
Bonne journée.