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