Discussion :

[edelweisseric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cname = Worksheets("Feuil1").CodeName

qui nous donne par exemple : Feuil4,

mais pour modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

bonsoir,
un exemple pour changer toutes les feuilles en XXXi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

Re

Merci, mais cela ne fonctionne pas chez moi

Eric

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

Re

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

Je viens de trouver ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

Bonjour à tous
Bonjour mercatog, Pierre Fauconnier

Merci Pierre, mais je ne comprends pas :

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

[Pierre Fauconnier]

Bonjour Eric,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuil1.[_codename]="Pierre"

VBA corrige automatiquement en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Didier Gonard]

Bonjour,

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

Pierre parlait bien de "Saisie automatique" d'ailleurs

cordialement,

Didier

[edelweisseric]

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

[alain91210]

Merci beaucoup pour l'astuce Sh.[_CodeName]

Tellement simple...

Bonne journée !

[tricoton]

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