Commenr dire si pas image continue

[Algui]

Bonjour le forum,

J'ai une procédure pour remplir un USF via une sélection faite dans une ComboBox et à la fin j'ai ce petit bout de code pour charger une image. Ca marche bien quand il trouve effectivement une image qui correspond, mais s'il ne trouve pas il plante.

With Image1
.Picture = LoadPicture(ChemV & '\\' & WsBase.Range('A' & NomLBindex) & '.jpg')
End With

Je cherche sans succès comment lui dire si l'image n'existe pas alors continue.

Une bonne âme pourrait-elle me donner la solution.

Merci et bonne soirée
Al

 

[justine]

bonsoir le forum, algui
mets un test d'erreur pour eviter qu'il plante

on error goto suite
With Image1
.Picture = LoadPicture(ChemV & '' & WsBase.Range('A' & NomLBindex) & '.jpg')
End With
suite:
le reste de ta macro


sinon tu as la meme comme

on error goto next
With Image1
.Picture = LoadPicture(ChemV & '' & WsBase.Range('A' & NomLBindex) & '.jpg')
End With


bonne continuation
justine

 

[Alguiche]

Salut Justine,

Merci pou ton attention. En fait j'étais arrivé à la même conclusion, mais je me demandais s'il y avait qqchose de plus pointu car j'ai souvent lu qu'il fallait éviter les goto

bon week end
al

 

[MichelXld]

bonjour Al , bonjour Justine

tu peux utiliser les fonctions proposées par Zon et Ti afin de verifier si le fichier existe

Lien supprimé


ce qui donnerait

If FichierExiste(ChemV & '\\\\\\\\' & WsBase.Range('A' & NomLBindex) & '.jpg') Then

With Image1
.Picture = LoadPicture(ChemV & '\\\\\\\\' & WsBase.Range('A' & NomLBindex) & '.jpg')
End With

End If


bonne journée
MichelXld

 

[Alguiche]

Bonjour Michel et le forum,

Merci pour cette alternative intéressante.

Bon dimanche
Al