Code pour afficher des images externe

Bonsoir

Je suis a la recherche d'un code pour afficher des images externe dans un formulaire, ces images se trouvant dans un sous dossier nommer "Photo_Chien"

Je joint un exemple qi seras certainement plus explcite

Cordialement

Max

Bonjour,

Essayez de remplacer la procédure Private Sub TextBox3_Change() par

Code:

---

1 2 3 4 5 6

Private Sub TextBox3_Change() On Error Resume Next Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Photos_Chien\" & Me.TextBox3 & ".jpg") If Err <> 0 Then MsgBox Me.TextBox3 & ".jpg introuvable (ou mal orthographié)" End Sub

---

Il est nécessaire que le dossier Photos_Chien soit dans le même dossier que le classeur qui contient le programme.

Bonjour PMO2017

Je te remercie beaucoup et te souhaite une bonne journée.

@+

Max