Compteur de connexions

[CAMPEN]

Bonjour à tous,

J'ai créé une base de données sur excel. Je souhaiterais m'assurer que cette base est utilisée régulièrement par tous.
J'ai mis un compteur pour connaitre le nombre de connexions. Mais je souhaiterais avoir également les informations suivantes :
user de la personne qui se connecte,
date de connexion,
et pourquoi pas durée de connexion.

Comment faire pour rajouter ces infos au code existant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

SpyOnxls

End Sub

Sub SpyOnxls()

Dim ThePath As String
Dim Counter As Long
Dim ValB6 As String, ValC6 As String
Dim Record As String
Dim Container As Variant

ThePath = "\\Pysn1001\doc-ap\EUROPE\ADEO\GCE\Clients\\TheSpy.xls"

With Sheets("index")
ValB6 = .Range("B6")
ValC6 = .Range("C6")
End With

On Error GoTo GenerateXLSFirstTime
Open ThePath For Input As #1
On Error GoTo 0

Do While Not EOF(1)
Line Input #1, Record
Loop

Container = Split(Record, Chr(9))
Counter = Container(0) + 1
Close #1

Open ThePath For Append As #1


Merci par avance pour votre aide....

 

[BOISGONTIER]

Re : Compteur de connexions

Bonjour,

Enregistre les dates de connexions dans une feuille ESPION (masquée)

Sub auto_open()
  Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub

Sub auto_close()
  Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
  Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username")
  Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
  Sheets("espion").Visible = xlVeryHidden
End Sub

Sub affiche_espion()
  mp = InputBox("Mot de passe?")
  If mp = "jacques" Then
    Sheets("espion").Visible = True
  End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Evenementiel/Espion.xls


JB

 

[CAMPEN]

Re : Compteur de connexions

Merci JB pour ta réactivité, c'est exactement ce qu'il me fallait !