Bonjour ä tous,

J'aimerai ajouter un FaceID à mon menu contextuel.

J'ai donc le code ci dessous :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test_bar_menu()
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("ESG").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Type:=msoControlButton)
        End With
        With cmdBtn
           .FaceId = 326
           .Caption = "ESG"
           .Style = msoButtonCaption
           .OnAction = "AfficheForm"
        End With
End Sub
Ou j'ai précisé le numero de FaceID que je voulais.

Quand je fais "Click Droit" tout fonctionne Cad que j'ai le "ESG" dans ma barre contextuel et lorsque je clique dessus ma macro "Afficher Userform" se declenche. Cependant, je n'ai pas l'image correspondant au FaceID bien que je l'ai précisé dans mon code.

Avez vous des idées ?

Merci