Pb Menus personnalisés

Re : Pb Menus personnalisés

Bonjour Balik

As tu prealablement défini myMenu ?

Dim myMenu as commandbar

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.

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,

Re : Pb Menus personnalisés

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

Balik