Condition à l'insertion d'image dans un userform enVBA Résolu/Fermé

Question

Bonjour à tous,

Dans un data base de gestion de moyens de mesure, j'ai inclus dans un userform l'affichage d'une image en plus des informations du moyen de mesure à l'ouverture de ce userform. Cette partie fonction très bien.

Dans l'état actuel:
Pour l'instant, je n'ai inclus toutes les photos dans les 4000 outils de ma liste. Donc quand j'ouvre le userform et que la photo n'est pas installé dans le dossier j'ai un message d'erreur.

Mon besoin:

Je souhaiterai:
Quand le chemin de recherche est vide (soit absence de la photo) cela ne me plante pas ma macro.

Merci.

Je mets ci-dessous mes lignes de code actuel

Dim chemin3 As String
Dim format1 As String
Dim format2 As String

format1 = "\"
format2 = ".jpg"

chemin3 = Range("Z1").Value & Range("AA2").Value & Range("U6").Value & format1 & Range("AA2").Value & format2 'format automatique svt la ligne de recherche de l'outil

information_moyen.Image1.Picture = LoadPicture(chemin3) ' affichage de l'image
information_moyen.Image1.PictureSizeMode = fmPictureSizeModeZoom 'dimensionnement de l'image

michel_m · Answer

Bonjour,
Que veux tu faire dans ce cas ?
Ignorer, ?
envoyer un message ou sortir de la macro ?

si tu ignores
on error resume next information_moyen.Image1.Picture = LoadPicture(chemin3) ' affichage de l'image information_moyen.Image1.PictureSizeMode = fmPictureSizeModeZoom 'dimensionnement de l'image'avecon error goto 0 si tu n'es pas en fin de macro
ou si tu veux sortir avec ou sans message 
On error goto videinformation_moyen.Image1.Picture = LoadPicture(chemin3) ' affichage de l'image information_moyen.Image1.PictureSizeMode = fmPictureSizeModeZoom 'dimensionnement de l'image'....exit subvide:msgbox "pas d'image"end sub--
 Michel

Condition à l'insertion d'image dans un userform enVBA

1 réponse

Discussions similaires