XL 2019 Créer bouton dans la barre d'outils

[team18fr]

Bonjour je cherche comment créer plusieurs boutons dans la barre d'outils soit dans l'onglet complément ou si possible dans un nouvel onglet mais seulement pour un classeur spécifique. J'arrive à en créer via Excel directement mais ils restent sur tout mes classeurs et j'ai aussi trouvé comment faire pour un seul classeur mais c'est trop petit.
Avez-vous une solution ?

Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 133
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
 
    CmdBar.Visible = True
End Sub

 

[patricktoulon]

bonsoir
@eastwick tu a tout faux
l'expression est claire
application.commandbars.add ajoute donc une commandbar dans l'application et non dans un classeur précis dans un onglet complement

il te faut la détruire a la fermeture du classeur

on ajoute des onglets dans le ruban dans un classeur précis seulement avec customUI a partir de 2007
et justement pour ce qui est de la taille des boutons (trop petits avec commandbar.add) on peut attribuer l'attribut large au controls du nouvel onglet seulement avec customUI

et cela depuis office 2007

 

[team18fr]

Merci pour ton aide et oui je savais que tu devais mettre un code pour le détruire je vais voir pour utiliser customUI.