Gestion des erreurs

Bonjour à tous,

N'ayant jamaiis géré les erreurs je suis un peu perdu. Voici mon problème :
Je recherche une photo sur mon ordi afiin de connaître le chemin qui me permettra de la "loader". Evidemment si cette photo n'exste pas j'ai une erreur et le procesus se plante , pour cela j'ai voulu gérer ce type d'erreur de la façon suivante

Private Sub Bt_naissance_Click()

    On Error GoTo GestionErreur
    'MsgBox (personne)
    'chemin = "C:\Users\jacqu\Desktop\actes\Naissance\" & personne & ".jpg"
   ' MsgBox (chemin)
    Me.img_acte.Picture = LoadPicture("C:\Users\jacqu\Desktop\actes\Naissance\" & personne & ".jpg")

GestionErreur:
    MsgBox ("Cet acte n'est pas disponible")
End Sub

Tout foncttionne si ma photo n'existe pas, mais si elle existe j'arrive bien à la charger mais en plus le MsgBox("Cet acte n'est pas disponible") apparaît également

Quelle bétise ai-je faite ?

Merci

Bonjour,

il suffit de sortir de la sub avant la gestion d'erreur :

    Exit Sub
GestionErreur:
    MsgBox ("Cet acte n'est pas disponible")
End Sub

@ bientôt

LouReeD

Merci Loureed

En effet c'était tout simple
N'ayant jamais géré les erreurs je n'y avait pas pensé alors que c'est une évidence même

Bien cordialement

Bonjour à tous,

ici tu as moyen d'éviter l'erreur avec Dir()
https://learn.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/dir-function?f1u...(vblr6.chm1008898)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue
Si tu reçois une chaine nulle ("") c'est que le fichier n'existe pas.
eric

Bonsoir,

merci eriiic pour cette leçon, reste à moi de la garder en mémoire !

@ bientôt

LouReeD