2 réponses
-------------------------------
Réponse au message :
-------------------------------
HELLO J'AI VOULUR CREER UN FICHIER LOG
MAIS CE QUE JE N'ARRIVE PAS à FAIRE C'EST D'INDIQUER LE NOMBRE DE FOIS QUE L'UTILISATEUR à ACCEDER à MON PROGRAMME.
VOICI CE QUE J'AI FAIT: SI VOUS AVEZ UNE SOLUTION MERCI DE M'AIDER A+
Open "d:ExeVBAVisualBasicBibliothèqueSESRBSE.log" For Append As #1
Print #1, NomUtilisateur, "connecté le", Date, "à", Time
Close #1
-------------------------------
Réponse au message :
-------------------------------
HELLO J'AI VOULUR CREER UN FICHIER LOG
MAIS CE QUE JE N'ARRIVE PAS à FAIRE C'EST D'INDIQUER LE NOMBRE DE FOIS QUE L'UTILISATEUR à ACCEDER à MON PROGRAMME.
VOICI CE QUE J'AI FAIT: SI VOUS AVEZ UNE SOLUTION MERCI DE M'AIDER A+
Open "d:ExeVBAVisualBasicBibliothèqueSESRBSE.log" For Append As #1
Print #1, NomUtilisateur, "connecté le", Date, "à", Time
Close #1
-------------------------------
Ca c'est une facon de faire parmis plusieurs autres:
' A la fermeture du programme
' Et on va dire que tu écrit le nombre de fois que le prog. à été ouvert au début du fichier
Private Sub Form_Unload(Cancel As INteger)
Dim lFile As Long
Dim LogFile As String
Dim TEMP1 As String
Dim TEMP2 As String
LogFile = "d:ExeVBAVisualBasicBibliothèqueSESRBSE.log"
lFile = FreeFile
Open LogFile For Input As #lFile
Line Input #lFile, TEMP1
TEMP1 = Mid$(TEMP1, InStr(1, TEMP1, "=") + 1)
TEMP1 = "Nombre=" & TEMP1 + 1 & vbCrLf
Do While Not EOF(lFile)
Line Input #lFile, TEMP2
TEMP1 = TEMP1 & TEMP2 & vbCrLf
Loop
Close #lFile
lFile = FreeFile
Open LogFile For Output As #lFile
Print #lFile, TEMP1
Ptrin #lFile, NomUtilisateur, "connecté le", Date, "à", Time
Close #lFile
End Sub
' A la fermeture du programme
' Et on va dire que tu écrit le nombre de fois que le prog. à été ouvert au début du fichier
Private Sub Form_Unload(Cancel As INteger)
Dim lFile As Long
Dim LogFile As String
Dim TEMP1 As String
Dim TEMP2 As String
LogFile = "d:ExeVBAVisualBasicBibliothèqueSESRBSE.log"
lFile = FreeFile
Open LogFile For Input As #lFile
Line Input #lFile, TEMP1
TEMP1 = Mid$(TEMP1, InStr(1, TEMP1, "=") + 1)
TEMP1 = "Nombre=" & TEMP1 + 1 & vbCrLf
Do While Not EOF(lFile)
Line Input #lFile, TEMP2
TEMP1 = TEMP1 & TEMP2 & vbCrLf
Loop
Close #lFile
lFile = FreeFile
Open LogFile For Output As #lFile
Print #lFile, TEMP1
Ptrin #lFile, NomUtilisateur, "connecté le", Date, "à", Time
Close #lFile
End Sub
