message erreur vba

jp14 à dit:

Bonjour

Une solution simple : piéger l'erreur
Avant l'ouverture du fichier sur la clef mettre "on error goto erreur"
et écrire

erreur:
Select Case MsgBox("Veuillez introduire la clef", vbOKCancel Or vbCritical Or vbDefaultButton1, Application.Name)

Case vbOK
resume next
Case vbCancel
exit sub
End Select
end sub

A tester

JP

Cliquez pour agrandir...

........
...........
Exit Sub

erreur:
.........
............
............
End Sub