Laissez les macros déterminer elles-mêmes le bouton CommandBar qui les a démarrées.

Si vous attachez la macro ci-dessous à plusieurs boutons de la barre de commande, la boîte de message affichera un contenu différent:

Sub DummyMacro()

If Application.CommandBars.ActionControl Is Nothing Then

' the macro was not started from a commandbar button

MsgBox "This could be your macro running!", vbInformation, _

"This macro was not started from a CommandBar button"

Else ' the macro was started from a commandbar button

MsgBox "This could be your macro running!", vbInformation, _

"This macro was started from this CommandBar button: " & _

Application.CommandBars.ActionControl.Caption

End If

End Sub