- On Error Goto error
-
- 'Votre codd
-
- Exit Sub
-
- error:
-
- Select Case MsgBox("Erreur " & Err.Number & vbCrLf & Err.Description, vbAbortRetryIgnore, "Pom")
- Case vbAbort
- Exit Sub
- Case vbIgnore
- Resume Next
- Case vbRetry
- Resume
- End Select
On Error Goto error
'Votre codd
Exit Sub
error:
Select Case MsgBox("Erreur " & Err.Number & vbCrLf & Err.Description, vbAbortRetryIgnore, "Pom")
Case vbAbort
Exit Sub
Case vbIgnore
Resume Next
Case vbRetry
Resume
End Select