Affichage photo dans un userform

Bonjour,

Voici mon souci j’ai créé des userform, malgré mes recherches je n’ai pas trouvé la solution, étant débutant j’aurais besoin de votre aide, dans l’userform Consultation_cheval j’aimerais qu’une photo s’affiche dans image1 d’après le nom qui s’affichera dans ma ComboBox1, la photo ce trouve dans C:\photos_chevaux.

J’ai bien essayé avec cette formule

chemin_photo = " C:\photos_chevaux \"

Nom_photo = Userform1.combobox1.value

Chem_nom = chemin_photo & Nom_photo & ".jpg"

UserForm1.image1.Picture = LoadPicture(" C:\photos_chevaux \")

Malheureusement cela ne fonctionne pas

Je vous remercie

48prog-patrice.xlsm (87.26 Ko)

Bonjour

Et en essayant

UserForm1.image1.Picture = LoadPicture(Chem_nom)

Ps: Pas ouvert ton fichier, vérifies d'abord

un grand merci Banzai64 de t'avoir pencher sur mon problème

mais j'ai essayé en créant un nouveau sub pour ne pas mélanger tout mais cela fonctionne toujours pas

Private Sub Combobox1_click()

chemin_photo = " C:\photos_chevaux \"

Nom_photo = Consultationcheval.ComboBox1.Value (ici cela m'affiche une erreur)

Chem_nom = chemin_photo & Nom_photo & ".jpg"

Consultationcheval.Image1.Picture = LoadPicture(Chem_nom)

End Sub

Bonjour

A part une erreur de chemin je n'ai pas de message d'erreur à la ligne que tu indiques

Vérifies ton chemin : tu as beaucoup d'espaces en trop

Chemin_Photo = " C:\photos_chevaux \"
Chemin_Photo = "C:\photos_chevaux\"

Voici le nom du fichier

C:\photos_chevaux \Prince Noir.jpg

Un tout grand merci cela fonctionne

super

Rechercher des sujets similaires à "affichage photo userform"