Couleur de fond des bouton brre outil complément

bonjour

ça fait un bon moment que je cherche à personnaliser les boutons crées dans une CommandBards.

j'ai du mal à croire qu'il n'existe pas de moyen. toute mes recherches et essais n'ont pas fonctionné.

ci-joint un exemple:

Sub bouton()

Dim bouton As CommandBarControl

Set bouton61 = CommandBars("Pointage").Controls.Add(Type:=msoControlButton)

bouton61.Style = msoButtonCaption

bouton61.OnAction = "color_week"

bouton61.Caption = "| color week_end |"

bouton61.TooltipText = "coloriage des wweek_end"

merci d'avance pour votre aide.

bien à Vous.

Bonjour,

à tester,

Set bouton61 = CommandBars("Pointage").Controls.Add(Type:=msoControlButton)
    With bouton61
    .Style = msoButtonCaption
    .OnAction = "color_week"
    .Caption = "| color week_end |"
    .TooltipText = "coloriage des wweek_end"
    .BackColor = RGB(222, 100, 100)
    End With

bonjour

je ne sais pas pourquoi mais il me renvoie une erreur.

sa ne fonctionne pas chez moi.

bonne journée

j'ai trouvé le bug mais par contre aucun changement sur le bouton.

re,

peux-tu joindre ton fichier ?