1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
'premier menu
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Premiere macro"
With .Controls.Add(msoControlButton)
.Caption = "Test1"
.OnAction = "frmFirst.Show"
End With
With .Controls.Add(msoControlButton)
.Caption = "Test2"
.OnAction = "MAJ_Données"
End With
End With
'deuxieme menu
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Deuxieme macro"
With .Controls.Add(msoControlButton)
.Caption = "Recap1"
.OnAction = "frmSecond.Show"
End With
With .Controls.Add(msoControlButton)
.Caption = "Recap2"
End With
End With |
Partager