Partager via

Objet Err

  • Article

Contient des informations sur les erreurs d'exécution.

Remarques

Les propriétés de l’objet Err sont définies par le générateur d’une erreur : Visual Basic, un objet ou le programmeur.

La propriété par défaut de l’objet Err est Number. Étant donné que la propriété par défaut peut être représentée par le nom d’objet Err, le code antérieur écrit à l’aide de la fonction Err ou de l’instruction Err n’a pas besoin d’être modifié.

Lorsqu'une erreur d'exécution se produit, les propriétés de l'objet Err sont renseignées avec des informations qui identifient de façon unique l'erreur et des informations qui permettent de la gérer. Pour générer une erreur d’exécution dans votre code, utilisez la méthode Raise .

Les propriétés de l’objet Err sont réinitialisées à zéro ou à zéro chaîne («  ») après une instruction Exit Sub, Exit Function, Exit Property ou Resume Next dans une routine de gestion des erreurs. L'utilisation de toute forme de l'instruction Resume hors d'une routine de gestion des erreurs ne permet pas de réinitialiser les propriétés de l'objet Err. La méthode Clear peut être utilisée pour réinitialiser explicitement Err.

Utilisez la méthode Raise , plutôt que l’instruction Error , pour générer des erreurs d’exécution pour les erreurs système et les modules de classe. L’utilisation de la méthode Raise dans un autre code dépend de la richesse des informations que vous souhaitez retourner.

L'objet Err est un objet intrinsèque avec une étendue globale. Il n'est pas nécessaire de créer une instance de cet objet dans votre code.

Exemple

Cet exemple utilise les propriétés de l’objet Err (Number, Description, HelpContext, HelpFile, Source) dans la construction d’une boîte de dialogue de message d’erreur.

Notez que si vous utilisez la méthode Clear en premier, lorsque vous générez une erreur Visual Basic avec la méthode Raise, les valeurs par défaut de Visual Basic deviennent les propriétés de l'objet Err.

Dim Msg
' If an error occurs, construct an error message
On Error Resume Next    ' Defer error handling.
Err.Clear
Err.Raise 6    ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Chr(13) & Err.Description
    MsgBox Msg, vbMsgBoxHelpButton, "Error", Err.Helpfile, Err.HelpContext
End If

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.