Menu Bar

[Han]

Bonjour,

Après avoir ajouter une commande au menu comme suit:

Dim myMenuBar As CommandBar

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
temporary:=True)
newMenu.Caption = "Mon Application"
Set Ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, ID:=1)

.. etc

Comment supprimer la commande une fois l'application est terminée.

Merci.

 

[TidJi06]

Salut à Tous,

Voici une procedure que j'utilise pour fermer un barre de menu quand je quitte le fichier :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Effacement de la Barre d'Outils Univers
Application.CommandBars("Mon Application").Delete
End Sub

Pour Test,

TidJi06