Discussion :

[questionas]

Bonjour tout le monde,

J'essaie sous VBA Excel d'utiliser l'évènement Workbook_Open() (que je mets bien dans ThisWorkbook) pour ajouter un menu addIns.
Le problème c'est que ça ne marche pas. J'ai rajouter la procédure Workbook_Activate() qui elle marche quand j'ouvre un deuxième fichier Excel dans le même workbook puis réactive ma feuille où je stocke mon évènement... Mais ça c'est pas une solution.

Est-ce que quelqu'un saurait d'où viendrait le problème? Version d'Excel? (Je travaille sous Office 2007) mais mon fichier est sauvegardé en format xlsm.

Merci de m'aider ça fait un jour que j'essaie de résoudre le problème, sans succès!!

Questionas

[Pierre Fauconnier]

Bonjour.

Pas certain d'avoir compris.

Peux-tu détailler et donner le code que tu places dans la procédure évènementielle?

[questionas]

Salut Pierre,

Voici le code que je mets dans 'ThisWorkbook' :

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
Private Sub Workbook_Open()
' Initialisation des menus
    'MsgBox "Workbook_Open"
    Call AddMenus
 
End Sub
 
Private Sub Auto_Open()
' Initialisation des menus
    'MsgBox "Auto_Open"
    Call AddMenus
 
End Sub
 
Private Sub Workbook_Activate()
' Initialisation des menus
    'MsgBox "Workbook_Activate"
    Call AddMenus
 
End Sub
 
Private Sub Workbook_Deactivate()
' Suppression des menus
    'MsgBox "deleteMenu"
    Call DeleteMenus
 
End Sub

Les procédures AddMenus et DeleteMenus sont des procédures où j'ajoute/supprime un menu de ma feuille Excel. Par exemple la procédure DeleteMenu :

Code :

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

1
2
3
4
5
6
7
8
Public Sub DeleteMenus()
' Efface le menu "IA Vanilla Rate"
 
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Nouveau Menu").Delete
    On Error GoTo 0
 
End Sub

Merci.

Questionas