Retour à Excel 2007

Créer un menu dans l'onglet Compléments

Création du menu

Sub MenuComplement()
Set maBar = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
maBar.TooltipText = "Test menu avec Complement"
maBar.Caption = "TestBar"
With maBar.Controls.Add(msoControlButton)
.Caption = "Lance Macro1"
.OnAction = "Macro1"
.FaceId = 25 'loupe *
End With
With maBar.Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "A propos..."
.OnAction = "MacroApropos"
.FaceId = 49 '49=?
End With
End Sub

Suppression du menu

Sub SupMenuComplement()
Application.CommandBars("Worksheet Menu Bar").Controls("TestBar").Delete
End Sub

Les 2 macros : Macro1 et MacroApropos

Sub macro1()
MsgBox "Lance Macro1"
End Sub

Sub MacroApropos()
MsgBox "http://dj.joss.free.fr/xl2007.htm"
End Sub

Et on obtient celà :