1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Public Sub SUB_Display_Error(intErrNumber As Integer, strErrDescription As String _
, strErrSource As String, strErrModule As String, strErrFonction As String)
On Error GoTo SUB_Display_Error
MsgBox "Erreur : " _
& intErrNumber & Chr(13) & " Description : " _
& strErrDescription & Chr(13) & " Source : " & strErrSource & Chr(13) & _
" Module : " & strErrModule & Chr(13) & " Fonction : " & _
strErrFonction, vbCritical
SUB_Display_Error:
MsgBox "Erreur : " & Err.Number & Chr(13) & "Description : " & Err.Description & Chr(13) & _
"Source : " & Err.Source & Chr(13) & _
"Module : General_Module Démarrage" & Chr(13) & _
"Fonction : Public Sub SUB_Display_Error(intErrNumber As " & _
"Integer, strErrDescription As String, strErrSource As String, " & _
"strErrModule As String, strErrFonction As String)", vbCritical
Select Case Err.Number
Case 94 'x est le numéro de l'erreur que vous voulez intercepter
MsgBox "LeMessage"
Case Else
MsgBox Err.Number & " " & Err.Description 'pour les cas que vous n'aurez pas mentionnés.
End Select
End Sub |
Partager