Condition à l'insertion d'image dans un userform enVBA
Résolu
anakin_74
Messages postés
43
Statut
Membre
-
anakin_74 Messages postés 43 Statut Membre -
anakin_74 Messages postés 43 Statut Membre -
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
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
1 réponse
-
Bonjour,
Que veux tu faire dans ce cas ?
Ignorer, ?
envoyer un message ou sortir de la macro ?
si tu ignoreson error resume next
information_moyen.Image1.Picture = LoadPicture(chemin3) ' affichage de l'image
information_moyen.Image1.PictureSizeMode = fmPictureSizeModeZoom 'dimensionnement de l'image
'avec
on error goto 0 si tu n'es pas en fin de macro
ou si tu veux sortir avec ou sans messageOn error goto vide
--
information_moyen.Image1.Picture = LoadPicture(chemin3) ' affichage de l'image
information_moyen.Image1.PictureSizeMode = fmPictureSizeModeZoom 'dimensionnement de l'image
'....
exit sub
vide:
msgbox "pas d'image"
end sub
Michel
