Discussion :

[le_sonic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[le_sonic]

Oki merci c' cool ca marche impec !!