Image dans userform

[rlebigre]

Bonjour à tous,

Voila mon problème.

J'ai un userform compose de 1 listbox et d'1 image. L'image change en fonction du choix sélectionner dans la listebox.
J'ai été obligé de créer des images en fonction des noms contenues dans la listebox. En effet, si aucune image ne correspondait à la sélection de la liste box, la macro me disait: 'Fichier introuvalbe'

Je souhaiterais en fait tester si l'image existe dans le dossier du fichier (ca je sais faire pour récupérer le chemin du dossier :lol: mais pas faire de test de fichier qui existe ou pas 🙁 )

Si le test est bon alors on affiche une image dans l'userform
si le test est pas bon on affiche rien.


Merci d'avance pour l'aide que vous pourriez m'apporte

@+

 

[MichelXld]

bonjour

tu peux tester une procedure de ce style

Fichier = ThisWorkbook.Path & '\\' & leNom & '.jpg'

If Dir(Fichier) <> '' Then
Image1.Picture = LoadPicture(Fichier) 'l'image existe
Else
Image1.Picture = LoadPicture('')'l'image n'existe pas
End If

si le nom n'existe pas , rien ne s'affiche dans l'objet 'image' de l'USF


bonne journée
MichelXld

Message édité par: michelxld, à: 25/08/2005 08:01