Surveillance accès fichier réseau

Bonjour,

à l'aide de la macro glanée sur XlDownload j'assure le comptage des consultations d'un fichier Excel sur le réseau.

J'aimerais aller un peu plus loin, et améliorer ça..

J'ai deux questions:

1/ je souhaiterais créer un deuxième fichier "mémoire" qui au lieu d'écraser la valeur précédente, écrirait la nouvelle en dessous, mais je ne sais pas faire... Comment faire ?

2/ est il possible de récupérer l'"identité" de l'ordi qui ouvre le fichier pour l'inscrirer dans ce nouveau fichier ?

Merci de votre aide ;_)

/////////////////////////////////////////////////////////////////////////////////////////////

Option Explicit

Dim Pointeur As Integer

' Macro Créée par J-Y L-L / XlDownload

'

Private Sub Workbook_Open()

Call Lecture_Pointeur

End Sub

Sub Lecture_Pointeur()

On Error GoTo GestErreur

Open "C:\Pointeur.dat" For Input As #1

Input #1, Pointeur

Close #1

Call Ecriture_Pointeur

Exit Sub

GestErreur:

Call Créate_Fichier

End Sub

Sub Ecriture_Pointeur()

'

Open "C:\Pointeur.dat" For Output As #1

On Error GoTo GestErreur

Print #1, (Pointeur + 1)

Close #1

Exit Sub

GestErreur:

MsgBox "Ecriture non effectuée", 64, "informations"

Close #1

End Sub

Sub Créate_Fichier()

Dim fs As Object, a As Object

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("C:\Pointeur.dat", True)

a.Close

Call Ecriture_Pointeur

End Sub

/////////////////////////////////////////////////////////////////////////////////////////////

Bonjour

est il possible de récupérer l'"identité" de l'ordi

L'identité de l'ordi ou celle de l'utilisateur ?

Amicalement