Comment tester qu'une image existe

Version imprimable

Bonjour,

j'ai une fichier produit et je stock mes images en dehors de la bdd. Je construit le chemin vers la photo dynamiquement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim StrPhoto As String SearchString = Me.CodeFournisseur SearchChar = "-" StrPos = InStr(10, SearchString, SearchChar, 1) StrLen = Len(SearchString) StrRight = StrLen - StrPos StrPhoto = Mid(Me.CodeFournisseur, 1, 8) & "-" & Right(Me.CodeFournisseur, StrRight) & ".jpg" If CurrentProject.Path & "\Articles\" & StrPhoto <> "" Then Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\" & StrPhoto Else Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\Zumbito.gif" End If
Mais quelle teste est ce que je dois effectuer pour savoir si la photo existe déjà dans l'emplacement spécifié?
Car actuellement il me renvoie une message d'erreurs mais il va pas afficher la photo par défault.

Merci pour vos remarques

Hans

22/01/2014, 06h13
Invité

Bonjour
Et bien tu as en partie répondu.
Tu peux intercepter l'erreur et la traiter.

Salsaboy60,

Pour tester l'existence d'un fichier mettre dir devant la variable :

Code:

1
2
3
4
5
6
7
StrPhoto = Mid(Me.CodeFournisseur, 1, 8) & "-" & Right(Me.CodeFournisseur, StrRight) & ".jpg"
 
If Dir(CurrentProject.Path & "\Articles\" & StrPhoto) > "" Then
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\" & StrPhoto
Else
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\Zumbito.gif"
End If

Après et comme suggéré par Gayot, ton contrôle est bon

JimBoLion

22/01/2014, 14h06
Salsaboy60

Merci Guyout et jimbolion. Problème résolu.

Je ne connaissait pas le DIR. Encore qqc appris aujourd'hui.

Merci en tout cas.

Hans