M
MacPhil
Guest
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.
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.