Savoir combien de personnes ont ouvert un fichier

[typiquement]

Bonjour,

J'ai un fichier Excel ou Access et je voudrais savoir combien de personnes ont le fichier ouvert...ou au moins savoir si le fichier est déja ouvert par quelqu'un...

Merci d'avance

 

[Orodreth]

Re : Savoir combien de personnes ont ouvert un fichier

Bonjour.

Pour autant que je m'en rappelle, Excel n'aime pas le multiuser, donc il signale automatiquement si un fichier est déjà ouvert par un autre utilisateur, et il t'ouvre une copie en lecture seule.

Il me semble.

Cordialement,
Thomas

 

[Staple1600]

Re : Savoir combien de personnes ont ouvert un fichier

Bonjour

edit2: voir fichier joint version (pour multi-utilisateurs)





edit1: une version plus compète (qui fonctione en monoposte)

Private Sub Workbook_Open()
Dim Jour As String
Dim Qui As String
Dim Heure As String
Dim FileNum As Integer
Dim FichierLog As String
Dim NomClasseur As String

NomClasseur = ThisWorkbook.Name
FichierLog = "C:\usagec.txt"
Qui = "Cet utilisateur : " & Application.UserName & " a ouvert ce classeur: " & NomClasseur & " le : "
Jour = Format(Now, "dddd dd/mm/yyyy") & ", à "
Heure = Format(Now, "hh:mm:ss")

FileNum = FreeFile
Open FichierLog For Append As #FileNum
Print #FileNum, Qui, Jour, Heure
Close #FileNum
End Sub

'SOURCE:http://www.j-walk.com/ss/excel/tips/tip95.htm
Private Sub Workbook_Open()
    Open ThisWorkbook.Path & "\usage.log" For Append As #1
    Print #1, Application.UserName, Now
    Close #1
End Sub

 

[typiquement]

Re : Savoir combien de personnes ont ouvert un fichier

C'est pas mal mais je voudrais connaitre les personnes chez qui le fichier est ouvert à un instant t en l'occurence qd j'ouvre mon fichier