Bonjour Sylsyl,
Voici le code à coller dans un module ainsi que un fichier non zippé:
Sub Auto_open()
'
'Création de boutond dans une nouvelle barre d'outils
Dim mybar As CommandBar, mybarButton As CommandBarButton
Auto_close ' suppression de la barre de commande si elle existe
' creation d'une nouvelle barre de commande appelée "perso"
Set mybar = CommandBars.Add(Name:="perso", Position:=msoBarTop, temporary:=True)
' ajout des icones dans la barre de commande
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button1Caption" 'nom du bouton 3
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro1" 'démarre MaMacro1
.TooltipText = "MaMacro1" 'légende pour le bouton
End With
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button2Caption" 'Nom du bouton 2
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro2" 'démarre MaMacro2
.TooltipText = "MaMacro2" 'légende pour le bouton
End With
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button3Caption" 'Nom du bouton 3
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro3" 'démarre MaMacro3
.TooltipText = "MaMacro3" 'légende pour le bouton
End With
mybar.Visible = True ' display de la barre de commande
End Sub
Sub MaMacro1()
'
End Sub
Sub MaMacro2()
'
End Sub
Sub MaMacro3()
'
End Sub
Sub Auto_close()
'
'Suppression de la barre de menu à la fermeture du fichier
On Error Resume Next
Application.CommandBars("perso").Delete
On Error GoTo 0
End Sub
Bonne chance
@Christophe@