Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro Fonction

Macro Fonction

3 réponses
Avatar
patrice
Bonjour,

J'ai une macro qui permet d'enregistrer des =E9v=E8nements=20
dans un fichier Log. J'ai ainsi dans mon projet plusieurs=20
on error goto liste: et dans liste: je lance ma macro=20
ERREUR (qui g=E9n=E8re une ligne dans un fichier log).=20
Ma question : j'aimerai ajouter une information sur le Sub=20
d'ou viens l'anomalie. ainsi, si c'est dans le code=20
d'ouverture, pouvoir dire ERREUR("ouverture"), pour que ma=20
macro erreur reprenne le texte "ouverture" dans la ligne=20
de log qu'ele va cr=E9er. Suis je claire????=20

Quelqu'un peut me mettre sur la voie ??? Merci par avance.
patrice
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
ChrisV
Bonjour Patrice,

Regarde dans VBA, l'aide relative à l'objet Err et Erreurs récupérables


ChrisV


"patrice" a écrit dans le message de
news:710301c47618$36724e50$
Bonjour,

J'ai une macro qui permet d'enregistrer des évènements
dans un fichier Log. J'ai ainsi dans mon projet plusieurs
on error goto liste: et dans liste: je lance ma macro
ERREUR (qui génère une ligne dans un fichier log).
Ma question : j'aimerai ajouter une information sur le Sub
d'ou viens l'anomalie. ainsi, si c'est dans le code
d'ouverture, pouvoir dire ERREUR("ouverture"), pour que ma
macro erreur reprenne le texte "ouverture" dans la ligne
de log qu'ele va créer. Suis je claire????

Quelqu'un peut me mettre sur la voie ??? Merci par avance.
patrice
Avatar
Michel Pierron
Bonjour Patrice;
Il te faut la gestion d'erreur pour chaque procédure.
Par exemple:
Sub Test()
On Error GoTo Liste
' Ici ton code
' ...
' ...
Exit Sub
Liste:
' Noms procédure et Module à adapter
WriteLogErr Err.Description & " (Sub Test dans Module1)"
End Sub

Sub WriteLogErr(Msg$)
Dim f%, hLog$
' Nom du fichier txt à adapter
hLog = ThisWorkbook.Path & "" & "Report.txt"
f = FreeFile
Open hLog For Append Shared As #f
Write #f, Msg: Close #f
End Sub

MP

"patrice" a écrit dans le message de
news:710301c47618$36724e50$
Bonjour,

J'ai une macro qui permet d'enregistrer des évènements
dans un fichier Log. J'ai ainsi dans mon projet plusieurs
on error goto liste: et dans liste: je lance ma macro
ERREUR (qui génère une ligne dans un fichier log).
Ma question : j'aimerai ajouter une information sur le Sub
d'ou viens l'anomalie. ainsi, si c'est dans le code
d'ouverture, pouvoir dire ERREUR("ouverture"), pour que ma
macro erreur reprenne le texte "ouverture" dans la ligne
de log qu'ele va créer. Suis je claire????

Quelqu'un peut me mettre sur la voie ??? Merci par avance.
patrice
Avatar
patrice
ok, je vous remercie, je vais affiner mon boulot.
Bonne journée

Patrice
-----Message d'origine-----
Bonjour,

J'ai une macro qui permet d'enregistrer des évènements
dans un fichier Log. J'ai ainsi dans mon projet plusieurs
on error goto liste: et dans liste: je lance ma macro
ERREUR (qui génère une ligne dans un fichier log).
Ma question : j'aimerai ajouter une information sur le
Sub

d'ou viens l'anomalie. ainsi, si c'est dans le code
d'ouverture, pouvoir dire ERREUR("ouverture"), pour que
ma

macro erreur reprenne le texte "ouverture" dans la ligne
de log qu'ele va créer. Suis je claire????

Quelqu'un peut me mettre sur la voie ??? Merci par avance.
patrice
.