Salut,
Il suffit de faire un copier de ton icone puis d'aller dans la propriété picture de ton contrôle et de faire coller.
Sinon j'ai ce vieux code que j'ai n'ai pas améliorer, je rajoute temporairement une feuille au classeur et un graphe pour exporter l'image afin de pouvoir charger l'image.
On colle le faceid 49 sur le bouton commandbutton1
Const Ch$ = 'C:\\Toto.jpg'
Private Sub UserForm_Initialize()
CopieFaceId 49, 'CommandButton1' 'à adapter
End Sub
Sub CopieFaceId(Num%, NomCtrl$)
Dim Menu As CommandBarControl, Graph As Chart, F As Worksheet
Application.ScreenUpdating = False
Set Menu = CommandBars(1).Controls.Add(msoControlButton)
With Menu
.FaceId = Num
.CopyFace
End With
Menu.Delete
Set F = ThisWorkbook.Sheets.Add
With F
.Paste
Set Graph = .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
End With
With Graph
.Paste
.Export Ch
Me.Controls(NomCtrl).Picture = LoadPicture(Ch)
Kill Ch
End With
SupprF F
End Sub
Sub SupprF(F As Worksheet)
Application.DisplayAlerts = False
F.Delete
Application.DisplayAlerts = True
End Sub
On doit pouvoir passer aussi par le module pastepicture de Ti...
A+++
