Discussion :

[apdf1]

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

[PMO2017]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[apdf1]

Bonjour PMO2017

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

@+

Max