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

Résolu

anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention - 3 mars 2015 à 10:53

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

A voir également:

Condition à l'insertion d'image dans un userform enVBA
Excel cellule couleur si condition texte - Guide
Image iso - Guide
Insertion sommaire word - Guide
Touche insertion clavier - Guide
Insertion filigrane word - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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
'avec
on error goto 0 si tu n'es pas en fin de macro

ou si tu veux sortir avec ou sans message

On 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

anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention

Je voulais ignorer.
Merci cela fonctionne parfaitement.
De plus la réponse fut rapide.

Discussions similaires

PIX

probleme sommet

Retrouver l'image originale après avoir fait des modifications ?

Votre réponse

Discussions similaires