Partager via


Source, propriété

Renvoie ou définit une expression String indiquant le nom de l’objet ou application ayant généré l’erreur. Lecture-écriture.

Remarques

La propriété Source spécifie une expression de chaîne représentant l’objet qui a généré l’erreur . l’expression est généralement le nom de classe ou l’ID de programmation de l’objet.

Utilisez Source pour fournir des informations quand votre code n’est pas en mesure de gérer une erreur générée dans un objet accédé. Par exemple, si vous accédez à Microsoft Excel et qu’il génère une Division by zero erreur, Excel définit Err.Number sur son code d’erreur pour cette erreur et définit Source sur Excel.Application.

Lors de la génération d’une erreur à partir du code, Source est l’ID programmatique de votre application. Pour les modules de classe, Source doit contenir un nom au format projet.classe.

Quand une erreur inattendue se produit dans votre code, la propriété Source est remplie automatiquement. Pour les erreurs dans un module standard, Source contient le nom du projet. Pour les erreurs dans un module de classe, Source contient un nom au format projet.classe.

Exemple

Cet exemple affecte l’ID programmatique d’un objet Automation créé en Visual Basic à la variable MyObjectID, puis l’affecte à la propriété Source de l’objet Err lorsqu’il génère une erreur avec la méthode Raise .

Lors de la gestion des erreurs, vous ne devez pas utiliser la propriété Source (ou les propriétés Err autres que Number) par programmation. L’unique utilisation valide de propriétés autres que Number concerne la présentation d’informations enrichies à l’utilisateur final dans les cas où vous ne pouvez pas gérer l’erreur. L’exemple suppose que App et MyClass sont des références valides.

Dim MyClass, MyObjectID, MyHelpFile, MyHelpContext
' An object of type MyClass generates an error and fills all Err object
' properties, including Source, which receives MyObjectID, which is a 
' combination of the Title property of the App object and the Name
' property of the MyClass object.
MyObjectID = App.Title & "." & MyClass.Name
Err.Raise Number := vbObjectError + 894, Source := MyObjectID, _
          Description := "Was not able to complete your task", _
          HelpFile := MyHelpFile, HelpContext := MyHelpContext 

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.