Pb Menus personnalisés

[balik]

bonjour,
j'essaye vainement d'incorporer un menu perso dans mon appli VBA Excel.
Ca marche sur un nouveau classeur mais pas dans celui existant :
Msg : "Erreur de compilation : Type défini par l'utilisateur non défini"

=> ne comprend pas "Set myMenu = CommandBars.ActiveMenuBar" ou autre appels à CommandBars (ex : msoControl....)
Est-ce une absence de déclaration de type "Appli" ?

Qq'un a-t-il déjà eu ce pb ?
Merci d'avance.
Balik

 

[wilfried_42]

Re : Pb Menus personnalisés

Bonjour Balik

As tu prealablement défini myMenu ?

Dim myMenu as commandbar

 

[balik]

Re : Pb Menus personnalisés

Bonjour Wilfried,
merci pour ta réponse.

Oui tout est "bien" (?) déclaré.
En fait dès la déclaration "Dim myMenu As CommandBar", la macro plante. Si je mets cette ligne en commentaire avec le ', ça plante à la ligne d'après etc....
...............
Sub ajouteMenu(ByVal MenuName As String, _
ByVal tItems As Variant, _
ByVal tLinks As Variant, _
ByVal tTTText As Variant)

'Dim myMenu As CommandBar
'Dim newMenu As CommandBarControl
'Dim subMenu As CommandBarControl
'Dim ctl As CommandBarControl
Dim Value As Variant
Dim i As Long, j As Long

Set myMenu = CommandBars.ActiveMenuBar
Set newMenu = myMenu.Controls.Add(Type:=msoControlPopup, temporary:=True)
newMenu.Caption = MenuName
...............

Merci pour ton aide.

 

[myDearFriend!]

Re : Pb Menus personnalisés

Bonsoir balik, wilfried_42,

Sauf erreur, dans l'éditeur VBE : menu Outils / Références... et cocher Microsoft Office XX.X Object Library (XX.X dépendant de ta version Excel).

Cordialement,

 

[balik]

Re : Pb Menus personnalisés

Merci pour cette piste.
Malheureusement, la case était déjà cochée.

Balik