Workbook_Open pour ajout menu AddIns

Version imprimable

16/11/2010, 19h43
questionas

Workbook_Open pour ajout menu AddIns

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!! :oops:

Questionas
16/11/2010, 21h04
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?

Salut Pierre,

Voici le code que je mets dans 'ThisWorkbook' :

Code:

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:

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