[VBA] Excel:Creation d'un menu ...

Bonjour a tous,

J'ai une petite question pour vous... sous excel j'ai crée une petite appli et j'ai ajouté a cela une barre de menu... tout marche parfaitement mais si j'ouvre plusieurs appli excel, il me rajoute autant de menu que ce que j'ouvre de fichier. Je voudrais donc limiter l'ajout d'un menu a 1 fois.

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open()   Application.MenuBars(xlWorksheet).Menus.Add "Tableau Recap"   Application.MenuBars(xlWorksheet).Menus("Tableau Recap").MenuItems.Add "Exec", "Tabl"   End sub

---

J'espere que je me suis pas trop embrouillé dans mon explication....
Merci d'avance

tiens une fonction permmettant d'effacer le menu.. tu peu l'appeller avant la création des menus.. ( et aussi en sorti du classeur pour supprimer menu inutiles ..

Code:

---

1 2 3 4 5 6 7

Sub Efface_MenuBar(stMenu As String) On Error GoTo Fin: boucle: Application.MenuBars(xlWorksheet).Menus(stMenu).Delete GoTo boucle: Fin: End Sub

---

ton ouverture de classeur:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Efface_MenuBar "Tableau Recap" Application.MenuBars(xlWorksheet).Menus.Add "Tableau Recap"   Application.MenuBars(xlWorksheet).Menus("Tableau Recap").MenuItems.Add "Exec", "Tabl"   End sub

---

Oki merci c' cool ca marche impec !!