| Microsoft® Visual Basic® Scripting Edition Source, propriété |
Référence du langage Version 1 |
Description
Renvoie ou définit le nom de l'objet ou de l'application qui est à l'origine de l'erreur.
Syntaxe
object.Source [= stringexpression]La syntaxe de la propriété Source comprend les éléments suivants :
Élément Description object Toujours l'objet Err. stringexpression Expression de chaîne représentant l'application qui a généré l'erreur.
Notes
La propriété Source spécifie une expression de chaîne qui correspond, en général, au nom de classe ou à l'identificateur de ressource de l'objet qui a provoqué l'erreur. Utilisez la propriété Source pour fournir à vos utilisateurs les informations nécessaires lorsque votre code est incapable de gérer une erreur générée dans un objet en cours d'accès. Par exemple, si vous accédez à Microsoft Excel et qu'il génère une erreur Division par zéro, il affecte à Err.Number le code de cette erreur et à la propriété Source la chaîne "Excel.Application". Notez que si l'erreur est générée dans un autre objet appelé par Microsoft Excel, Excel intercepte l'erreur et affecte à Err.Number son propre code correspondant à Division par zéro. Il conserve, toutefois, l'autre objet Err (y compris la description de la propriété Source) tel que défini par l'objet ayant généré l'erreur.La propriété Source contient toujours le nom de l'objet qui est à l'origine de l'erreur — votre code peut essayer de gérer l'erreur d'après la documentation d'erreur de l'objet auquel vous avez accédé. En cas d'échec de votre gestionnaire d'erreurs, vous pouvez utiliser les informations de l'objet Err pour décrire l'erreur à votre utilisateur, en utilisant la propriété Source et l'autre objet Err pour indiquer à l'utilisateur l'objet à l'origine de l'erreur, sa description de l'erreur, etc.
En cas de génération d'une erreur à partir du code, la propriété Source est l'identificateur de ressource de votre application.
Le code suivant illustre l'utilisation de la propriété Source :
On Error Resume Next Err.Raise 6 ' Génére une erreur de dépassement. MsgBox ("Erreur N° " & CStr(Err.Number) & " " & Err.Description & Err.Source) Err.Clear ' Efface l'erreur.