Inerstion image dans userform

Bonjour

je réalise un userform avec un contrôle "image1" pour insérer une image en fonction du choix dans une listbox avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub listpanneaux_click() Dim chemin As String, fichier As String, pathpanneaux As String, nom As String Image1.Picture = LoadPicture() chemin = ActiveWorkbook.Path & "\" pathpanneaux = chemin & "panneaux" & "\" & cheminpanneaux & "\" nom = Me.listpanneaux.Column(0) fichier = pathpanneaux & nom & ".jpg" Me.TextBox1 = fichier 'Me.Image1.Picture = LoadPicture(fichier) End Sub

---

en vérifiant le nom du fichier, via le textbox1 le nom et chemin est correct (voir image jointe)
par contre j'obtiens une erreur 76 chemin introuvable !! dans la ligne me.image1.picture
je ne comprends plus rien

où est l'erreur ?

merci pour vos conseils

Bonjour,

Tu as une espace parasite au bout de "obligation".

Essaie avec :

Code:

---

fichier = trim(pathpanneaux) & nom & ".jpg"

---

Bonjour Clement

j'ai essayé avec

Code:

---

fichier = Application.WorksheetFunction.Trim(pathpanneaux) & nom & ".jpg"

---

et toujours la même erreur

bonjour,

vérifie l'existence de ton fichier avec un dir par exemple :

Code:

---

1 2 3 4

if dir(fichier) = "" then msgbox "Fichier Inexistant : " & vbCrlf & fichier exit sub endif

---

bonjour BBil

la msgbox n'apparait pas donc le fichier est censé exister

en rajoutant la ligne

Code:

---

On Error Resume Next

---

avant la ligne

Code:

---

frmsaisie.Image1.Picture = LoadPicture(pathpanneaux & "\" & nom & ".jpg")

---

ça marche

je ne comprends pas pourquoi
cordialement

Citation:

---

Envoyé par Pierre67

en rajoutant la ligne

Code:

---

On Error Resume Next

---

avant la ligne

Code:

---

frmsaisie.Image1.Picture = LoadPicture(pathpanneaux & "\" & nom & ".jpg")

---

ça marche

je ne comprends pas pourquoi
cordialement

---

:koi: je comprends pas cette ligne n'est pas dans le code que tu as posté !!

je viens de la rajouter