Afficher le nom et l'image d'un bouton

Private Sub Workbook_Open()

'

' OPEN_BARRE Macro

' ouvre la Barre d'outils

 Dim CmdBar As CommandBar

    Dim Bouton As CommandBarButton

 

    'Création de la barre d'outils nommée 'Macros'

    Set CmdBar = Application.CommandBars _

        .Add(Name:="test", Position:=msoBarTop, Temporary:=True)

 

    'Ajout de 3 boutons dans la barre d'outils

    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)

    With Bouton

        .FaceId = 173

        .Caption = "01"

        .OnAction = "Sauvegardejanvier"

    End With

 

    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)

    With Bouton

        .Caption = "Cacher"

        .FaceId = 342

        .OnAction = "Cacher"

    End With

 

    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)

    With Bouton

        .Caption = "Afficher"

         .FaceId = 343

        .OnAction = "Afficher"

    End With

 

    CmdBar.Visible = True

End Sub