Discussion :

[anisr]

Bonjour,

Je lance une serie de traitement de fichiers (excecution, copie, suppression..). Je souhaite avoir un compte-rendu d'opérations qui me permet de savoir des infos sur les traitement ( date, heure erreur).

Comment dois-je faire? Merci de votre aide.

[SfJ5Rpw8]

et ces infos ... tu les veux ou ..?
peu-être un fichier texte..? .log....

[anisr]

fichier texte si c'est possible!

[SfJ5Rpw8]

et bien ya ka fo ka...

un coup d'aide en ligne sur sur ouput ,ForAppending, print , close...

et puis dit nous si tu bloque...

[anisr]

Ok et je vous tient au courant

A+

[anisr]

Désolé je ne vois pas comment commencer!

[SfJ5Rpw8]

ben il faut commencer par open ... pour ouvrir le fichier

un petit code à étudier...

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
27
28
29
30
 
 
Option Explicit
 
'
' Tiens la procédure de log...
'
Sub LogInfo(stMess As String)
Dim stFile As String 'Nom du fichier log
Dim iLog As Integer 'Numéro fichier log
stFile = "c:\tmp\toto.log"
iLog = FreeFile
Open stFile For Append As #iLog
 Print #iLog, Format(Now, "dd/mm/yyyy hh:mm:ss"); vbTab; stMess
Close #iLog
End Sub
'
' et une procédure de test pour tester ...!
'
Sub TEst()
 LogInfo ("Lancement de test")
 If MsgBox("Oui ou non ..?", vbYesNo) = vbYes Then
   LogInfo ("L'utilisateur à répondu Oui ")
 Else
   LogInfo ("Ben il a répondu non")
 End If
 DoEvents
 'Pour le fun affiche le message
  Shell "notepad c:\tmp\toto.log"
End Sub