Bonjour,
alors que l'image s'affiche bien dans la picture1 de ma form, j'ai l'erreur erreur 13 type incompatible, le debug point sur la ligne :
Set imgX = ImageList1.ListImages.Add(, , Me.Picture1.Image)
Me.Picture1.Image est pourtant bien un long

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim imgX As ListImage
  Set imgX = ImageList1.ListImages.Add(, , Me.Picture1.Image)
  imgX.Key = keyListView
 
  Set lvFileList.SmallIcons = ImageList1
j'ai redéposé un nouveau ImageList1 et c'est bon