Discussion :

[Pierre67]

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 :

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

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

[clementmarcotte]

Bonjour,

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

Essaie avec :

Code :

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

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

[Pierre67]

Bonjour Clement

j'ai essayé avec

Code :

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

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

et toujours la même erreur

[SfJ5Rpw8]

bonjour,

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

Code :

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

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

[Pierre67]

bonjour BBil

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

[Pierre67]

en rajoutant la ligne

Code :

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

On Error Resume Next

avant la ligne

Code :

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

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

ça marche

je ne comprends pas pourquoi
cordialement

[SfJ5Rpw8]

en rajoutant la ligne

Code :

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

On Error Resume Next

avant la ligne

Code :

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

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

ça marche

je ne comprends pas pourquoi
cordialement

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

[Pierre67]

je viens de la rajouter