Microsoft 365 Modification du CodeName d'un onglet

[ThierryP]

Bonjour le forum !

J'ai besoin dans certains cas de changer le codename d'une feuille, j'utilise ce code :

Sub Change_CodeName()
Dim sh As Worksheet

Set sh = ActiveSheet
sh.[_CodeName] = "Feuil1"
End Sub

Ceci fonctionne très bien..... tant qu'on ne l'utilise pas dans un évènement style workbookbeforeclose 🙁🙁
J'ai testé : appel depuis un xlam, pas de souci, appel depuis un module standard, OK mais erreur si je l'exécute quand je ferme mon fichier...
Pouvez-vous me confirmer que c'est bien une limitation d'Excel ? Et si oui, y-a-t-il une astuce pour contourner ça ?

Merci d'avance aux gourous d'Excel qui se pencheront sur mon souci !

 

[wDog66]

Bonjour ThierryP

"J'ai besoin dans certains cas de changer le codename d'une feuille"
Ah oui 🤔🤪

Pouvez-vous nous donner ces cas ?

 

[sylvanu]

Bonjour Thierry, Wdog,
Je me pose aussi la même question. 😉

Mais quoi qu'il en soit, j'ai fait un petit essai et cela semble marcher avec :

Sub Change_CodeName()
Dim sh As Worksheet
Set sh = ActiveSheet
sh.[_CodeName] = "Feuil" & [D5]
sh.Name = "Feuille N° " & [D5]
End Sub

et

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     MsgBox "Attention, ce document va se fermer."
     ActiveWorkbook.Save
End Sub

Je suis sous W10, XL2007, VBA 6.3.

 

[job75]

Bonjour à tous,

Chez moi sur Win 11 Excel 2019 il n'y a pas de problème à la fermeture du fichier ci-joint.

A+

 

[ThierryP]

Bonjour à tous,

Chez moi sur Win 11 Excel 2019 il n'y a pas de problème à la fermeture du fichier ci-joint.

A+

Bonjour wDog66, sylvanu, job75

J'ai deux cas, dans l'un un fichier Excel est créé dynamiquement (les noms des onglets sont susceptibles de changement) et je le traite par macro. Afin d'être sûr de traiter les bons onglets et de ne pas avoir à modifier mon code, je change les codename. Tout se passe bien, la macro s'exécute.
Dans le deuxième cas, j'ai des fichiers d'exercices, tous structurés de manière identique : Feuil1(Titre Exercice), Feuil2(Solution) masquée et Feuil3(Modele) veryhidden.
Et ce que je souhaite faire, c'est qu'à la fermeture du fichier, la Feuil1 soit supprimée, je recopie Feuil3 (et donc elle s'appelle Feuil4) avant Feuil2 et c'est là que je veux changer son codename. Ce qui me permet d'avoir un fichier tout beau tout neuf !
@job75 : effectivement ton fichier fonctionne sans souci chez moi 🤔🤔 et je viens de tester ta macro sur un fichier vierge, ça fonctionne.... Je suis sous W11 et 365.
Du coup, j'ai appliqué ma macro sur un nouveau fichier avec 3 onglets, et ça plante.... Mais je ne vois pas pourquoi, ce qui ne sera sûrement pas votre cas à vous trois donc un petit fichier exemple en PJ !

Merci d'avance,

 

[sylvanu]

Re,
En faisant du pas à pas, on voit que quand vous voulez renommer un CodeName en Feuil1, Feuil1 existe déjà donc ça plante :

Lorsque vous supprimez Feuil1, la feuille est supprimée en visuel mais la trace est conservé par XL :

 

[ThierryP]

Re,
En faisant du pas à pas, on voit que quand vous voulez renommer un CodeName en Feuil1, Feuil1 existe déjà donc ça plante :
Regarde la pièce jointe 1212550

Non, je l'ai supprimé quelques lignes au-dessus, donc il n'existe plus.... ou alors il a la vie dure !

 

[sylvanu]

Non, je l'ai supprimé quelques lignes au-dessus, donc il n'existe plus.... ou alors il a la vie dure !

J'ai fait un addon à mon post.
Faites du pas à pas.

Lorsque vous supprimez Feuil1, la feuille est supprimée en visuel mais la trace est conservé par XL :

 

[ThierryP]

J'ai fait un addon à mon post.
Faites du pas à pas.

Oui, j'avais vu, mais pensé que c'était juste un truc de rafraîchissement d'écran ! Mais du coup, peut-on "forcer" Excel à "actualiser" la structure du fichier ??

 

[sylvanu]

En trichant un peu :

    ' Modif
    Onglet = Feuil1.Name
    Feuil1.Name = "A détruire"
    Feuil1.[_CodeName] = "Feuil99"
    With Sheets("A détruire")
        .Select
        .Delete
    End With

mais c'est pas sain, peut être serait il mieux de trouver une autre solution.

 

[ThierryP]

En trichant un peu :

    ' Modif
    Onglet = Feuil1.Name
    Feuil1.Name = "A détruire"
    Feuil1.[_CodeName] = "Feuil99"
    With Sheets("A détruire")
        .Select
        .Delete
    End With

mais c'est pas sain, peut être serait il mieux de trouver une autre solution.

Chez moi, j'ai une erreur "Impossible d'entrer en mode Arrêt" sur la ligne Feuil1.[_CodeName] = "Feuil99" 😭😭
Pourtant, j'y croyais ! Je creuse de mon côté, en essayant de passer par vbcomponents, mais ça plante aussi :

Private Sub Reset_CodeName()
Dim vbProj As Object, vbComp As Object
Dim Code_Name As String
Dim ws As Worksheet

Set ws = ActiveSheet
Code_Name = "Feuil1"
Set vbProj = ThisWorkbook.VBProject
Set vbComp = vbProj.VBComponents(ws.CodeName)
vbComp.Properties("_CodeName") = Code_Name
Set ws = Nothing
Set vbComp = Nothing
End Sub

Merci de te pencher sur mon cas !!!

 

[sylvanu]

Il n'accepte pas de point d'arrêt dans la sub Workbook_BeforeClose.
Si vous ne mettez pas de point d'arrêt ça marche. J'ai testé avant de vous le proposer.

Mais ceci dit, cela reste malsain à mes yeux.

 

[ThierryP]

Chez moi, j'ai une erreur "Impossible d'entrer en mode Arrêt" sur la ligne Feuil1.[_CodeName] = "Feuil99" 😭😭
Pourtant, j'y croyais ! Je creuse de mon côté, en essayant de passer par vbcomponents, mais ça plante aussi :

Private Sub Reset_CodeName()
Dim vbProj As Object, vbComp As Object
Dim Code_Name As String
Dim ws As Worksheet

Set ws = ActiveSheet
Code_Name = "Feuil1"
Set vbProj = ThisWorkbook.VBProject
Set vbComp = vbProj.VBComponents(ws.CodeName)
vbComp.Properties("_CodeName") = Code_Name
Set ws = Nothing
Set vbComp = Nothing
End Sub

Merci de te pencher sur mon cas !!!

Il arrive parfois de partir sur des usines à gaz........ Alors qu'il suffit d'un copier / coller de la Feuil3 sur la Feuil1 🙁 🙁 🙁
Désolé de vous avoir fait perdre votre temps....

 

[sylvanu]

mais c'est pas sain, peut être serait il mieux de trouver une autre solution.

Voilà, c'est fait. 😉