AHHHHH,

j'ai trouvé ce code, je l'ai testé par curiosité et je comprenais aps ce qu'il faisait ... je l'ai lancé plein de fois et apres j'ai vu ce qu'il faisait.. il ajoutais des menus et maitenant ma bare est dégue !!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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-2"
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
comment peut-on les supprimer? j'ai cherché dans l'aide et j'ai trouvé "reset"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub supprimermenu()
 
    CommandBarButton.Reset
 
End Sub
il me dit objet requis
j'ai aussi testé avec commandbarpopup et meme erreur