Code affichage image dans userform

[goraxx31]

Bonjour !

Je sollicite à nouveau votre aide pour un problème que je n'arrive pas à résoudre.
J'ai un userform qui affiche une image en fonction d'une combobox

 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox3 & ".jpg")

Ce code fonctionne très bien tant qu'il y a une image associée à la valeur de la combobox3.
Je voudrais donc savoir comment afficher une image particulière si il n'y a pas d'image associée à la combobox, par exemple afficher une image " photo not available "

Je pense que mon problème est facile à comprendre et ne nécessite donc pas un fichier, le cas échéant je le joindrais.

EDIT -> Par exemple :

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox3 & ".jpg")
Si erreur -> LoadPicture(ThisWorkbook.Path & "\" & notavailable & ".jpg")

Cordialement,
Thomas

 

[camarchepas]

Re : Code affichage image dans userform

Bonjour ,

alors un truc de ce genre doit faire l'affaire :

 dim Choix as string 
 Choix = ThisWorkbook.Path & "\" & ComboBox3 & ".jpg"
 if dir(choix)="" then Choix = ThisWorkbook.Path & "\notavailable.jpg"
Image1.Picture = LoadPicture(Choix )

 

[BOISGONTIER]

Re : Code affichage image dans userform

Bonjour,

  répertoirePhoto = "c:\photos"
  If Dir(répertoirePhoto & "\" & Me.ChoixPhoto & ".jpg") <> "" Then
     Me.Image1.Picture = LoadPicture(répertoirePhoto & "\" & ChoixPhoto & ".jpg")
  Else
     Me.Image1.Picture = LoadPicture
  End If

JB

 

[goraxx31]

Re : Code affichage image dans userform

Re bonjour,

Merci à vous deux, les deux codes fonctionnent !

Thomas