Discussion :

[Elstak]

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

[SfJ5Rpw8]

cela ressemble à un code que j'ai posté ..(tu aurai du lire la question ..?) ... aprés la sortie de la feuille excel, as tu toujours ces menus ?? .. si oui tu peu toujours les supprimer par une clic du bouton droit de la souris sur barre de menu, puis personnaliser puis tu sélectionne les menu à effacer et supprimer...

[Elstak]

oui ca doit etre ton code.

non ils ne s'en vont pas apres fermeture d'excel et j'avai deja regardé dans personnaliser je n'arrive pas à les supprimer

[Elstak]

Yop,

si finalement j'ai reussi, rien de dur... une fois dans la fenetre qui s'ouvre apres avoir cliqué sur "personnaliser" j'ai fait un cliquer glisser des menus (directement depuis luer empalcement) j'ai ai fait glissés dans un endroit où je voyais une croix qui me disai que je pouvais pas et hop il a été suppr


voilà merci