SPY DE CONSULTATION usf DE THIERRY help

[AVORIAZ]

salut, j'ai une petite erreur sur la macro de spy tracker que thierry avais posté il ya qqes temps sur le forum...
je fais tourner ce spy sous 97, et il me dis erreur a la fonction "chr"

ce traker est superbe lorqu'il fonction car il enregistre l'ouverture de l'usf et ca fermeture dans le fichier thespy?txt dans le c:

merci ci qqes peux m'aider a resoudre ce prob

voila le prog:

Option Explicit
'fonction pour le spy tracker
Private Const ThePath As String = "C:\TheSpy.txt" '
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

'Spy Opening/Closing
Private Sub Workbook_Open()
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Spy = "Open on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName

Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' est ici qu'il bloque chr ..

Spy = "Close on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName

Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

 

[michel]

bonsoir Michael

je viens de tester la macro de @+Thierry avec Excel97 & Win98 , je n'ai rencontré aucun soucis


bonne soiree
MichelXld

 

[AVORIAZ]

moi exel me donne le message erreur comme quoi l'objet "chr n'es pas dans la bibliotheque")
faut peut etre activee qqes choses ?

sous exel 2000 j'ai pas le prob

mais le log va tourne sous 97 donc faut que je trouve pourquoi il bloque !!

merci pour votre aide