Discussion :

[manudja]

Je voudrais créer un fichier log pour suivre les évènements d'erreur survenues dans l'application 8)

[sozie9372]

Salut !
J'ai fais ca pour un projet,

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
26
 
'USAGE :
'  On Error GoTo Err_handler
'    Exit Sub
'Err_handler:
'    If Err.Number <> 0 Then
'        errLogger Err.Number, Err.Description, "Function_source_of_error", "File", True
'        Err.Clear
'        Resume Next
'    End If
 
 
Public Sub errLogger&#40;ByVal lNum As Long, ByVal sDesc As String, ByVal sFrom As String, ByVal sFile As String, Optional ByVal printMsgBox As Boolean = False&#41;
    Dim fp As Integer
 
    fp = FreeFile
    Open App.path & "\Trace\Errors " & Day&#40;Now&#40;&#41;&#41; & "-" & Month&#40;Now&#40;&#41;&#41; & "-" & Year&#40;Now&#40;&#41;&#41; & ".log" For Append As #fp
        Print #fp, "-----------------------------------------------------------------------------------------"
        Print #fp, Now&#40;&#41; & " -> Error generated by the function &#58; " & sFrom & " in file &#58; " & sFile & ". Description &#58; " & lNum & " - " & sDesc
        Print #fp, "-----------------------------------------------------------------------------------------"
    Close #fp
 
    If printMsgBox = True Then
        MsgBox "An unknown error has occured &#58; '" & sDesc & "'," & vbCrLf & "Please refer to Errors " & Day&#40;Now&#40;&#41;&#41; & "-" & Month&#40;Now&#40;&#41;&#41; & "-" & Year&#40;Now&#40;&#41;&#41; & ".log file in 'Trace' folder for details", vbOKOnly + vbCritical, "Error"
    End If
End Sub

+++
Ju