Bonjour,
Lorsque j'appelle une sous-macro avec call, je souhaite, en cas d'erreur, retrouver le no de ligne de la sous macro et non le no de ligne de la macro appelante.
Ici, si j'ai une erreur dans la sous-procédure X_Ajoute1sec le renvoi est la ligne 82 et comme NomProcedure A_Mise_En_Page1.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Sub A_Mise_En_Page1() On Error GoTo ErrHandle: 10 NomProcedure = "A_Mise_En_Page1" ... 82 Call X_Ajoute1sec ... ErrHandle: 191 ErrLOg = ErrLOg & "Procédure : " & NomProcedure & Chr(13) _ & "Erreur N° : " & Err.Number & Chr(13) _ & "Description : " & Err.Description & Chr(13) _ & "Ligne N° : " & Erl() & Chr(13) _ & "Date : " & Date & " et " & "Heure : " & Time 192 szMsg = "Une erreur est survenue, prévenir Toto" & vbLf _ & ErrLOg 193 szStyle = 16 194 szTitle = "Erreur !" 195 MsgBox szMsg, szStyle, szTitle 196 ErrLOg = "" 'Reprend l'exécution au après la ligne à l'origine de l'erreur. 'Resume Next 'Réinitialise les propriétés de l'objet Err. 197 Err.Clear End SubMerci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub X_Ajoute1sec() 10 NomProcedure = "X_Ajoute1sec" 11 IntervalType = "s" ' "m" specifies months as interval. 12 FirstDate = Range("A11") ...
Partager