[VBA-E] Compte-rendu d'opérations

Version imprimable

28/04/2007, 21h31
anisr

[VBA-E] Compte-rendu d'opérations

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.
28/04/2007, 21h55
SfJ5Rpw8

et ces infos ... tu les veux ou ..?
peu-être un fichier texte..? .log....
28/04/2007, 21h59
anisr

fichier texte si c'est possible!
28/04/2007, 22h05
SfJ5Rpw8

et bien ya ka fo ka...

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

et puis dit nous si tu bloque...
28/04/2007, 22h10
anisr

Ok et je vous tient au courant

A+
29/04/2007, 06h46
anisr

Désolé je ne vois pas comment commencer!:oops:

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

un petit code à étudier...

Code:

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