j'aimerais que, en cas d'erreur, mon 'ErrorManager' m'indique le nom de
la proc=E9dure en d=E9faut.
Mais je ne sais comment reprendre le nom de la proc=E9dure d=E9s la
d=E9but de son appel.
Un plus serait m=EAme de pouvoir relever le nom du module contenant la
proc=E9dure en d=E9faut.
Ce qui me donnerait quelque chose comme :
'--------------------------------------------------------------------------=
--------------------
ErrorManager:
MsgBox "Une erreur est survenue, induisant un arr=E9t de la proc=E9dure
:" _
& vbCrLf & Nom_Module & " / & Nom_Proc=E9dure
'--------------------------------------------------------------------------=
--------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Le Nordiste,
Tu peux définir au niveau du module :
Dim LaSub as String Dim LeModule As string
OU utiliser ceci selon ton application
Public LaSub as String Public LeModule As string
En début de n'importe quelle procédure, en première ligne
LaSub = "NomDeLaSub" LeModule = "LeNomDuModule"
Si une erreur survient, de part l'information des variables, tu connais alors ce que tu veux avoir !
Salutations!
"Le Nordiste" a écrit dans le message de news:
Bonjour tertous,
j'aimerais que, en cas d'erreur, mon 'ErrorManager' m'indique le nom de la procédure en défaut. Mais je ne sais comment reprendre le nom de la procédure dés la début de son appel. Un plus serait même de pouvoir relever le nom du module contenant la procédure en défaut.
Ce qui me donnerait quelque chose comme :
'---------------------------------------------------------------------------------------------- ErrorManager: MsgBox "Une erreur est survenue, induisant un arrét de la procédure :" _ & vbCrLf & Nom_Module & " / & Nom_Procédure '----------------------------------------------------------------------------------------------
Remerciements anticipés
Bonjour Le Nordiste,
Tu peux définir au niveau du module :
Dim LaSub as String
Dim LeModule As string
OU utiliser ceci selon ton application
Public LaSub as String
Public LeModule As string
En début de n'importe quelle procédure, en première ligne
LaSub = "NomDeLaSub"
LeModule = "LeNomDuModule"
Si une erreur survient, de part l'information des variables, tu connais
alors ce que tu veux avoir !
Salutations!
"Le Nordiste" <jean-paul.bataille@cegetel.fr> a écrit dans le message de news:
1141665875.703361.47760@z34g2000cwc.googlegroups.com...
Bonjour tertous,
j'aimerais que, en cas d'erreur, mon 'ErrorManager' m'indique le nom de
la procédure en défaut.
Mais je ne sais comment reprendre le nom de la procédure dés la
début de son appel.
Un plus serait même de pouvoir relever le nom du module contenant la
procédure en défaut.
Ce qui me donnerait quelque chose comme :
'----------------------------------------------------------------------------------------------
ErrorManager:
MsgBox "Une erreur est survenue, induisant un arrét de la procédure
:" _
& vbCrLf & Nom_Module & " / & Nom_Procédure
'----------------------------------------------------------------------------------------------
En début de n'importe quelle procédure, en première ligne
LaSub = "NomDeLaSub" LeModule = "LeNomDuModule"
Si une erreur survient, de part l'information des variables, tu connais alors ce que tu veux avoir !
Salutations!
"Le Nordiste" a écrit dans le message de news:
Bonjour tertous,
j'aimerais que, en cas d'erreur, mon 'ErrorManager' m'indique le nom de la procédure en défaut. Mais je ne sais comment reprendre le nom de la procédure dés la début de son appel. Un plus serait même de pouvoir relever le nom du module contenant la procédure en défaut.
Ce qui me donnerait quelque chose comme :
'---------------------------------------------------------------------------------------------- ErrorManager: MsgBox "Une erreur est survenue, induisant un arrét de la procédure :" _ & vbCrLf & Nom_Module & " / & Nom_Procédure '----------------------------------------------------------------------------------------------
Remerciements anticipés
Le Nordiste
Merci MichDenis,
Je me suis exprimé de manière incompléte. Je désire reprendre automatiquement, par VB lui même, dans chaque procédure les noms de module et de procédure, sans avoir à les rentrer en 'dur' en début de procédure.
'-------------------------------------------------------------- On Error GoTo ErrorManager 'ICI mon code qui affecte automatiquement ' les noms de procédure et module :::::::::::::::::::::: :::::::::::::::::::::: LeModule = LaProcedure =
Exit Sub '--------------------------------------------------------------
ErrorManager: MsgBox "Une erreur est survenu, dans la procédure :" _ & vbCrLf & LaProcedure & " du module" & LeModule ''--------------------------------------------------------------
Il suffit alors de recopier ces lignes entre '-------- pour disposer d'une indication de l'origine de l'erreur
Merci de votre aide à tous;
Merci MichDenis,
Je me suis exprimé de manière incompléte.
Je désire reprendre automatiquement, par VB lui même,
dans chaque procédure les noms de module et de procédure,
sans avoir à les rentrer en 'dur' en début de procédure.
'--------------------------------------------------------------
On Error GoTo ErrorManager
'ICI mon code qui affecte automatiquement
' les noms de procédure et module
::::::::::::::::::::::
::::::::::::::::::::::
LeModule =
LaProcedure =
Je me suis exprimé de manière incompléte. Je désire reprendre automatiquement, par VB lui même, dans chaque procédure les noms de module et de procédure, sans avoir à les rentrer en 'dur' en début de procédure.
'-------------------------------------------------------------- On Error GoTo ErrorManager 'ICI mon code qui affecte automatiquement ' les noms de procédure et module :::::::::::::::::::::: :::::::::::::::::::::: LeModule = LaProcedure =
