Merci Bruno,
J'ai déjà des instructions dans le Workbook_Open(), mais je veux y ajouter les commandes suivantes pour personnaliser le menu bar:
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "Mon Appliaction"
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "Run Application"
ctrl1.TooltipText = "Run Application"
ctrl1.Style = msoButtonCaption
With ctrl1
.FaceId = 2
.OnAction = "Introduction"
End With etc ....
Mais j'obtiens un message d'erreur. ça marche dans un module indépendant et non dans le workbook???