Discussion :

[Sacha_vba]

Bonsoir à tous

Le sujet pour lequel j'ai besoin d'aide concerne la gestion des menus personnalisés dans le cas où deux classeurs identiques sont ouverts simultanément.

J'ai créé un menu personnalisé que j'appelle dans le Workbook_Open

Code :

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

1
2
3
Private Sub Workbook_Open()
       Call Menu_CopieValeurs  
End Sub

Dans un module standard, j'ai mis la procédure de création du menu et en m'aidant de ce que j'ai trouvé dans un forum, je fais en sorte que lorsque deux classeurs identiques sont ouverts, un seul menu s'affiche :

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
Sub Menu_CopieValeurs
Dim bMarqueur As Boolean
Dim iNbMenus As Integer              
Dim iItem As Integer                    
Dim menuPrin As CommandBarPopup
Dim menuItem As CommandBarControl 
 
    iNbMenus = Application.CommandBars.ActiveMenuBar.Controls.Count
    For iItem = 1 To iNbMenus
        If Application.CommandBars.ActiveMenuBar.Controls.Item(iItem).Caption = "Copie valeurs des cubes" Then
            bMarqueur = True
        End If
    Next iItem
 
    'CREATION DU MENU PRINCIPAL
    If bMarqueur = False Then
        Set menuPrin = _
            Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
                msoControlPopup, temporary:=True)
        menuPrin.Caption = "Copie valeurs "
        menuPrin.BeginGroup = True
    End If
End Sub

En revanche, lorsqu'on ferme un seul des deux classeurs, le menu disparaît, y compris sur le classeur qui reste ouvert.

Comment faire pour que le menu reste sur le classeur ouvert.

Merci d'avance à tous ceux qui pourraient trouver une solution.
(au bureau, je travaille sur Excel 2003)

[patricktoulon]

bonjour pour ton menu perso

fait le dans un nouveau classeur et sauve le en "xla"
et fais appel a ton xla quand tu clique droite sur ton classeur ouvert

ainsi tu prend pas le risque que quand tu ferme le classeur ou se trouve ton module avec le menu contextuel, tu te retrouve sans clic doit perso

voila

au plaisir

[Sacha_vba]

Bonjour patricktoulon

Merci d'avoir pris le temps de répondre à ma question.

En fait, il ne s'agit pas d'un menu contextuel mais d'un menu ajouté à la barre de menu Excel.

J'ai eu par ailleurs une proposition de solution qui fonctionne très bien : il faut mettre le code de création et de suppression du menu personnalisé respectivement dans Workbook_Activate et Workbook_Deactivate.

Voilà, encore merci