"André" a écrit dans le message de news:dhl6vm$nbl$
Bonjour,
Comment obtenir la liste des erreurs existant en VBA avec le N° correspondant. Merci
Jacques93
Bonjour André, André a écrit :
Bonjour,
Comment obtenir la liste des erreurs existant en VBA avec le N° correspondant. Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next For i = 1 To 1000 Err.Clear Err.Raise i If Left(Err.Description, 32) <> _ "Erreur définie par l'application" Then Debug.Print Err.Number & " : " & Err.Description End If Next i
-- Cordialement,
Jacques.
Bonjour André,
André a écrit :
Bonjour,
Comment obtenir la liste des erreurs existant en VBA avec le N°
correspondant.
Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next
For i = 1 To 1000
Err.Clear
Err.Raise i
If Left(Err.Description, 32) <> _
"Erreur définie par l'application" Then
Debug.Print Err.Number & " : " & Err.Description
End If
Next i
Comment obtenir la liste des erreurs existant en VBA avec le N° correspondant. Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next For i = 1 To 1000 Err.Clear Err.Raise i If Left(Err.Description, 32) <> _ "Erreur définie par l'application" Then Debug.Print Err.Number & " : " & Err.Description End If Next i
-- Cordialement,
Jacques.
André
-------------------------------- Bonjour Jacques,
Merci j'ai ainsi pu éditer la liste des erreurs.
------------------------------
"Jacques93" a écrit dans le message de news:
Bonjour André, André a écrit :
Bonjour,
Comment obtenir la liste des erreurs existant en VBA avec le N° correspondant. Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next For i = 1 To 1000 Err.Clear Err.Raise i If Left(Err.Description, 32) <> _ "Erreur définie par l'application" Then Debug.Print Err.Number & " : " & Err.Description End If Next i
-- Cordialement,
Jacques.
--------------------------------
Bonjour Jacques,
Merci j'ai ainsi pu éditer la liste des erreurs.
------------------------------
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
Owj8cxoxFHA.2576@TK2MSFTNGP10.phx.gbl...
Bonjour André,
André a écrit :
Bonjour,
Comment obtenir la liste des erreurs existant en VBA avec le N°
correspondant.
Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next
For i = 1 To 1000
Err.Clear
Err.Raise i
If Left(Err.Description, 32) <> _
"Erreur définie par l'application" Then
Debug.Print Err.Number & " : " & Err.Description
End If
Next i
Comment obtenir la liste des erreurs existant en VBA avec le N° correspondant. Merci
Tu peux provoquer l'erreur :
Dim i As Integer
On Error Resume Next For i = 1 To 1000 Err.Clear Err.Raise i If Left(Err.Description, 32) <> _ "Erreur définie par l'application" Then Debug.Print Err.Number & " : " & Err.Description End If Next i
