suppression d'un menu personnalisé

[limph]

Bonjour
Je n'arrive pas à supprimer les menus personnalisé
Voici mon code :

Public Garantie, NouvAnnée As CommandBarPopup

Private Sub Workbook_Activate()
With Application.CommandBars(1)
Set Garantie = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count - 1)
End With
Garantie.Caption = "Garantie"

With Application.CommandBars(1)
Set NouvAnnée = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count - 1)
End With
NouvAnnée.Caption = "Nouvelle Année"



'Creation des sous-menus
With Garantie.Controls.Add(msoControlButton)
.Caption = "Feuille Garantie"
.OnAction = "Garantie"
End With

With Garantie.Controls.Add(msoControlButton)
.Caption = "Garantie Lacmée"
.OnAction = "BdSaisie"
End With

With NouvAnnée.Controls.Add(msoControlButton)
.Caption = "Création nouvelle année"
.OnAction = "NouvelleAnnée"
End With

End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars(1).Controls("Garantie").Delete
Application.CommandBars(1).Controls("NouvAnnée").Delete
End Sub

L'osque je ferme le classeur,seul le menu "Garantie" est supprimé, le menu "NouvAnnée" me renvoie le message (erreur d'exécution 5)
Si quelqu’un peut me trouver le problème, je lui en serais très reconnaissant
D'avance merci

 

[gilbert_RGI]

Re : suppression d'un menu personnalisé

Bonjour

pour supprimer les restes de ce menu il faut renommer ou supprimer le fichier xlb ou xlbx qui se trouve
C:\Users\nomdesession\AppData\Roaming\Microsoft\Excel

 

[limph]

Re : suppression d'un menu personnalisé

Bonjour

pour supprimer les restes de ce menu il faut renommer ou supprimer le fichier xlb ou xlbx qui se trouve
C:\Users\nomdesession\AppData\Roaming\Microsoft\Excel

Merci pour cette réponse
effectivement ça me supprime bien les menus personnalisés qui restaient, mais j'ai toujours le problème avec la fermeture du classeur, le menu nouvelle année ne veut pas se supprimer et j'ai le message "erreur d’exécution 5" .
donc pour moi la solution de supprimer ce fichier xlb ne me convient pas
désolé, mais encore merci

 

[gilbert_RGI]

Re : suppression d'un menu personnalisé

il faut fermer excel avant de supprimer le xlb ou xlbx
il y a une erreur dans le code commandbar(1) est supprimé par la premiere commande et ça génére cette erreur ensuite

 

[limph]

Re : suppression d'un menu personnalisé

Bonjour
Merci pour ta réponse
Ton code fonctionne bien, je vais le décortiquer pour bien en comprendre toute les subtilités
Encore un grand merci 🙂
Limph