Supprimer un menu

Bonjour,

J'ai créé un menu avec la macro auto_open et je voudrais que quand je ferme ma feuille (auto_close) mon menu disparaisse et je n'y arrive pas

Merci de votre aide

Création du menu

Code:

---

1 2 3 4 5 6 7 8 9 10

Set myMenuBar = CommandBars.ActiveMenuBar Set newmenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newmenu.Caption = "Ouvre fiche" Set ctrl1 = newmenu.Controls _ .Add(Type:=msoControlButton, ID:=1968) ctrl1.Caption = "Ouvre le dossier" ctrl1.TooltipText = "Ouvre le dossier de la fiche" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "Ouvre_lien"

---

Nota : comment faire pour ajouter une ligne séparatrice ?

Merci

Bonjour ami blésois ;)

As-tu lu ce tuto : http://fring.developpez.com/vba/excel/barremenu/

Je vois que tu n'as pas donné de nom à ton menu, ce serait plus simple en le nommant pour le supprimer (delete), non ?

Philippe

J'ai piqué le code dans les examples donnés dans l'aide

Mais je suis d'accords avec toi

Je regarde ton Tuto

Merci

Bonsoir,

Citation:

---

quand je ferme ma feuille (auto_close) mon menu disparaisse

---

Je serai plus pour un procédure événementielle sur la feuille du genre

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Activate() a = Application.CommandBars.ActiveMenuBar.Controls.Count Application.CommandBars.ActiveMenuBar.Controls(a).Visible = True End Sub   Private Sub Worksheet_Deactivate() a = Application.CommandBars.ActiveMenuBar.Controls.Count Application.CommandBars.ActiveMenuBar.Controls(a).Visible = False End Sub

---

En supposant que le controle soit placé en dernière position sur ta barre (ActiveMenuBar.Controls.Count)

Ce code serait à placer dans le module de la feuille concernée
On se contente de rendre le controle visible ou non

Citation:

---

comment faire pour ajouter une ligne séparatrice ?

---

De mémoire je pense qu'il faille utiliser BeginGroup

Bon courage

Super merci JPierreM, c'est exactement ce que je voulais

Code:

---

1 2	a = Application.CommandBars.ActiveMenuBar.Controls.Count Application.CommandBars.ActiveMenuBar.Controls(a).Delete

---

Code:

---

ctrl1.BeginGroup = True

---

:ccool:

Merci