Hervé, le forum
Voici un code que m'avait donné LaurentTbt (Que je remercie, encore).
Private Sub ListBox1_Click()
Dim Photo As String
On Error GoTo Fin 'si erreur aller à fin
Photo = ListBox1.Value
Frame6.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Photo & ".jpg")
Label16.Visible = False
Exit Sub ' ici on sort si pas d'erreur
Fin: 'ici c'est l'image par défaut qui s'affiche en cas d'erreur
Label16.Visible = True
Label16.Caption = "Pas de photo disponible pour cette référence. "
Image1.Picture = LoadPicture()
Err.Clear ' Efface les champs d'erreur
End Sub
Comme je ne sais pas comment tu fait la sélection pour tes clients je te remet le code tel que je l'ai, mais il est facilement adaptable
Si problème donne plus d'infos, G'Claire