Discussion :

[urbanspike]

Bonjour,

Je voudrais simplement créer un log avec l'heure et la date à chaque fois que programme est ouvert (au form load par exemple)

Merci

[justgreat]

j'espere que ça va t'aider !

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
Private Sub Command1_Click()
Dim MonContenu As String
Dim fic As Integer
Dim Chemin As String
 
 
MonContenu = App.Title & " Ouverture à : " & Now & vbCrLf
fic = FreeFile
' adresse du fichier a enregistrer
Chemin = "D:\Documents and Settings\User\Bureau\LeLog.txt"
 
'ouverture du fichier
 
 Open Chemin For Append As #fic
 ' Enregistrer le Log
 
Print #fic, MonContenu
 
'Fermeture du fichier
 
 Close #fic
 
 
End Sub