Comment savoir qui est en train de travailler sur un classeur disponible sur un intranet ?

Remplacer par le nom de ton serveur

sub WhoHasFileOpen()
 Dim File As String
 File = InputBox("Enter any part of Filename")
 If File = "" Then exit sub
 If Any_Part_Of_Filename = "" Then exit sub
 Workbooks.Add
 Rows(1).Font.Bold = True
 Cells(1, 1) = "USER"
 Cells(1, 2) = "PATH"
 On Error Resume Next
 Dim fso As Object, Res As Object, i&: i = 1
 Set fso = GetObject("WinNT://Nom du domaine/Nom du serveur/LanmanServer")
 If IsEmpty(fso) Then exit sub
 For Each Res In fso.resources
 If Not Res.user = "" And Not Right(Res.user, 1) = "$" Then
  If InStr(1, Res.Path, File, 1) Then
   i = i + 1
   Cells(i, 1) = Res.user
   Cells(i, 2) = Res.Path
  End If
 End If
 Next Res
 Cells.Columns.AutoFit
 MsgBox "Done !", 64
 end sub