Excel et VBA ( BARRE D'OUTILS )

[MacPhil]

Bonjour,

Voici le listing sous VBA pour qu'à l'ouverture d'un classeur, un nouveau MENU apparaisse et disparaisse à la fermeture de ce meme classeur. (Ce listing fonctionne très bien. )

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Bonjour").Delete
End Sub

Private Sub Workbook_Open()
Dim monBouton As CommandBarButton
Set monBouton = _
Application.CommandBars("Worksheet Menu Bar").Controls.Add
monBouton.Caption = "&Bonjour"
monBouton.Style = msoButtonCaption
monBouton.BeginGroup = True
monBouton.OnAction = "AfficherBonjour"
End Sub

Existe t'il quelque chose équivalent pour une BARRE D'OUTILS, qui contiendrait deux boutons de Style texte sans icone ?
Pour une Commande dans la barre de MENUS, je sais faire, mais je n'y arrive pas pour une barre d'outils, j'arrive très bien à supprimer celles dont je n'aient pas besoin, mais j'arrive pas à en créer une une.
Merci d'avance, Salutions distinguées.

 

[schmail]

Bonsoir Macphil et le forum

Tu peux trouver ds les téléchargements dispo sur ce site : VBA Menu exemple de barre de menu temporaire de Ti (alias Thierry Pourtier)

@+ et bon WE