Gestion d'erreurRésolu

Question

Bonjour,
je voudrais mettre au point un syst&#232;me qui inscrit dans un fichier texte les erreurs de mon programme.  Pour inscrire j'utilise une Public Sub qui se nome Write_Log

Pour l'appeler j'utilise Write_Log "TEST", "Ceci est un test"
Ce qui inscrira dans dans un fichier La date et l'heure plus TEST et ceci est un test
Mon seul probl&#232;me est comment appeler cette routine quand un erreur se produit.  Un genre d'appelle comme on error ...
Que puis-je faire??
Merci
.....................................................................................................................................
Public sub pour l'inscription:

Public Sub Write_Log(Groupe As String, Descr As String)
    ' routine d'&#233;criture dans un fichier en append
    ' --------------------------------------------
    '        Groupe est le nom d'un groupe de fichier
    '        Descr est le texte que tu veux &#233;crire


    Dim ff As Integer
    Dim LOG_FILE As String
    On Error Resume Next        '
    MkDir "c:\log"              ' on cr&#233;e le r&#233;pertoire : s'il existe pas de probl&#232;me
    On Error GoTo 0             '
    LOG_FILE = "c:\log" & Groupe & "_" & Format(Date, "dd-mm-yyyy") & ".log"   ' tous les jours un nouveau fichier est cr&#233;&#233;    ff FreeFile       ' premier num&#233;ro d'acc&#232;s libre au fichier N&#176; du fichier
    Open LOG_FILE For Append As ff  ' ouverture en ajout
    Print #ff, Format(Now(), "dd-mm-yyyy hh:mm:ss") & " : " & Descr  ' &#233;criture &#224; la fin du fichier
    Close #ff    ' fermeture du fichier
    
    
End Sub

Merci

cs_etniqs · Accepted Answer

rien d'autre que d'utiliser : "on error goto mon_nom

Public Sub Write_Log(Groupe As String, Descr As String)

   Dim ff As Integer
    Dim LOG_FILE As String
    On Error Resume Next       '
    MkDir "c:\log"              ' on cr&#233;e le r&#233;pertoire : s'il existe pas de probl&#232;me
    On Error GoTo LAFIN           '
    LOG_FILE = "c:\log" & Groupe & "_" & Format(Date, "dd-mm-yyyy") & ".log"   ' tous les jours un nouveau fichier est cr&#233;&#233;    ff FreeFile       ' premier num&#233;ro d'acc&#232;s libre au fichier N&#176; du fichier
    Open LOG_FILE For Append As ff  ' ouverture en ajout
    Print #ff, Format(Now(), "dd-mm-yyyy hh:mm:ss") & " : " & Descr  ' &#233;criture &#224; la fin du fichier
    Close #ff    ' fermeture du fichier

LAFIN :
   
    Open LOG_FILE For Append As ff 
    Print #ff, Format(Now(), "dd-mm-yyyy hh:mm:ss") & " : " & Descr 
    Close #ff  
    err.clear
   

End Sub

Merci

De rien
co&#239;to ergo sum

jrivet · Answer

Salut,

Dans toutes les fonctions ou sub ou tu souhaite ecrire les erreurs tu fais un truc du style

Private Sub FonctionTest()
On Error Goto TraceErreur

Exit Sub
TraceErreur:
Call Write_Log("FonctionTest", Err.Description)
Resume Next ' Si tu veux reprendre le programme a ligne ou il y avait eu l'erreur
End Sub

En esperant avoir pu t'aider
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

PCPT · Answer

salut,


tu peux aussi gagner du temps en utilisant ma classe, elle fait exactement ce que tu demandes avec quelques options en plus ;)


++


PCPT [AFCK]

Gestion d'erreur

3 réponses

Discussions similaires