comment ajouter deux autres boutons

[gh4]

bonjour
voila je peine a trouver quand ajouter 2 autres boutons a cette macro


Dim nouv As Object

Private Sub Workbook_Activate()
Set nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add

With nouv
.Style = msoButtonCaption
.Caption = "Pres"
.OnAction = "pres"
.FaceId = 24
.TooltipText = "Liste Pres" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur

End With
end sub


merci bcp pour votre aide

 

[BERRACHED said]

Re : comment ajouter deux autres boutons

Salut
essaye ca :

Dim nouv1 As Object
          Dim nouv2 As object

Private Sub Workbook_Activate()
Set nouv1 = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With nouv1
.Style = msoButtonCaption
.Caption = "fifi"
.OnAction = "fofo"
.FaceId = 24
.TooltipText = "Liste fofo" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur
End With

Set nouv2 = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With nouv2
.Style = msoButtonCaption
.Caption = "Toto"
.OnAction = "titi"
.FaceId = 24
.TooltipText = "Liste Titi" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur
End With

end sub

Cordialement