1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub AjtCde(Menu As CommandBarPopup, stCde, stSub)
Dim m As CommandBarButton
Set m = Menu.Controls.Add(Type:=msoControlButton, Temporary:=True)
m.Caption = stCde
m.OnAction = stSub
Set m = Nothing
End Sub
Sub AddMenu() 'Dans un module standart
Dim NewM As CommandBarPopup
Dim sMenu1 As CommandBarPopup
Dim sMenu2 As CommandBarPopup
Set NewM = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
Before:=CommandBars(1).Controls("?").Index, Temporary:=True)
NewM.Caption = "Synthese mensuelle"
Set sMenu1 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu1.Caption = "Sous Menu1"
Set sMenu2 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu2.Caption = "Sous Menu2"
AjtCde sMenu1, "Ma commande Menu1-1", "Sub1-1"
AjtCde sMenu1, "Ma commande Menu1-2", "Sub1-é"
AjtCde sMenu2, "Ma commande Menu2-1", "Sub2-1"
AjtCde sMenu2, "Ma commande Menu2-2", "Sub2-2"
Set sMenu1 = Nothing
Set sMenu2 = Nothing
Set NewM = Nothing
End Sub |
