Codes d'erreur de VBA

Je voudrais facilement retouver à quoi correspondent les codes d'erreurs de VBA.

sub vérifier_erreur()
 Dim Msg
 ' Si une erreur se produit, crée un message d’erreur.
 On Error Resume Next  ' Diffère la gestion d’erreur.
 Err.Clear
 Err.Raise 1007 ' erreur définie par l'application ou par l'objet
 ' Vérifie la présence d’erreurs, puis affiche
 ' le message.
 If Err.Number <> 0 Then
  Msg = "L’erreur # " & Str(Err.Number) & _
    " a été générée par " _
      & Err.Source & Chr(13) & Err.Description
  MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
 End If
 end sub

Auteur :

Mots clefs associés à cette page : , ,