XL 2016 erreur d'execution 424 en changeant le code name

[dodineau]

Bonjour à toutes et tous.
J'ai un classeur de 2 onglets.
Le code name du 1er est SV1.
Je voudrais que le 2eme onglet obtienne le codename "Nouveau"
ensuite je voudrais que le 1er onglet obtienne le codename "Ancien"
Et enfin Je voudrais que le 2eme onglet obtienne le codename "Actuel"
Quand j'exécute mon code les 2 premiers changements s'effectuent bien mais au 3eme changement j'ai une erreur d'exécution 424 : Objet requis.

Voici mon code qui plante :

Sub Change_Code_Name()
Nom = SV1.Name
With Sheets(Nom)
 .Parent.VBProject.VBComponents(.CodeName) _
 .Properties("_CodeName") = "Nouveau"
End With

Nom = Actuel.Name
With Sheets(Nom)
 .Parent.VBProject.VBComponents(.CodeName) _
 .Properties("_CodeName") = "Ancien"
End With

Nom = Nouveau.Name
With Sheets(Nom)
 .Parent.VBProject.VBComponents(.CodeName) _
 .Properties("_CodeName") = "Actuel"
End With
End Sub

Merci pour votre aide.
A+

 

[Bebere]

bonjour
Dodineau essaye comme suit

Sub Change_Code_Name()
    Dim nom As String

    On Error Resume Next
    nom = SV1.Name
    With Sheets(nom)
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Nouveau"
    End With

    nom = "Actuel"
    With Sheets(nom)
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Ancien"
    End With

    nom = "Nouveau"
    With Sheets(nom)
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Actuel"
    End With
    On Error GoTo 0
End Sub

 

[dodineau]

Bonjour et merci pour cette réponse.
Par contre ça ne fonctionne pas.
Avec ce code j'ai le code name du 1er onglet qui passe à "Nouveau" et rien d'autre...

 

[Ikito]

Bonjour à vous deux,

Tu peux déposer un fichier exemple qu'on puisse lancer le débogueur ?

 

[dodineau]

Voici mon code :

Sub change_code_name()
    With Sheets(2)
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Nouveau"
    End With

    With SV1
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Ancien"
    End With

    With Nouveau
        .Parent.VBProject.VBComponents(.CodeName) _
                .Properties("_CodeName") = "Actuel"
    End With

End Sub

il suffit de créer un classeur avec 2 feuilles et de changer le codename manuellement de la 1ere feuille en "SV1"
Quand on lance le code, les 2 1ères instructions sont bien exécutées mais ça bloque à la 3ème.