Sub Creation_Bouton()
Dim MenuOutils As CommandBarPopup
Dim NouveauBT As CommandBarButton
Dim NouveauBT2 As CommandBarButton
SuppBouton
Set MenuOutils = CommandBars(1).FindControl(ID:=30007)
If MenuOutils Is Nothing Then
MsgBox "Menu Outils introuvable, impossible de créer un nouveau bouton !.", vbCritical, "Erreur:"
Exit Sub
Else
Set NouveauBT = MenuOutils.Controls.Add(Type:=msoControlButton)
Set NouveauBT2 = MenuOutils.Controls.Add(Type:=msoControlButton)
With NouveauBT
.Caption = "Bouton1"
.OnAction = "Macro1"
.BeginGroup = True
End With
With NouveauBT2
.Caption = "Bouton2"
.OnAction = "Macro2"
End With
End If
End Sub
Sub SuppBouton()
On Error Resume Next
CommandBars(1).FindControl(ID:=30007).Controls("Bouton1").Delete
CommandBars(1).FindControl(ID:=30007).Controls("Bouton2").Delete
End Sub
Sub Macro1()
MsgBox "Je suis la Macro1", , "Hello"
End Sub
Sub Macro2()
MsgBox "Je suis la Macro2", , "Hello"
End Sub