Private Sub Workbook_Open()
' affiche la barre de boutons
Application.CommandBars("DEVIS XXX").Visible = True
' crée un sous menu impr.devis client dans le menu fichier
Set mabarre1 = Application.CommandBars("File").Controls.Add(Type:=msoControlButton, Id:= _
2949, Before:=11, Temporary:=True)
With mabarre1
.Caption = "Imprimer un Devis"
.OnAction = "Imprimer_Devis_client"
End With
' crée un sous menu impr.devis société dans le menu fichier
'Set mabarre2 = Application.CommandBars("File").Controls.Add(Type:=msoControlButton, Id:= _
2949, Before:=12, Temporary:=True)
'With mabarre2
' .Caption = "Imprimer un Devis Société"
' .OnAction = "Imprimer_Devis_XXX"
'End With
End Sub