Utilisateur réseau

[Maxime]

Bonjour,

est-il possible de dresser une liste des utilisateurs présents sur un fichier excel?
Si oui, comment faire?
Merci
Maxime

 

[MichelXld]

bonsoir Maxime

tu peux tester cette macro

Sub listerUtilsateursClasseur()
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xlproUserStatus1_HV05205754.asp
Dim Users()
Dim i As Byte

Users = ActiveWorkbook.UserStatus

With Workbooks.Add.Sheets(1)
For i = 1 To UBound(Users, 1)
.Cells(i, 1) = Users(i, 1)
.Cells(i, 2) = Users(i, 2)
Select Case Users(i, 3)
Case 1
.Cells(i, 3).Value = 'Exclusive'
Case 2
.Cells(i, 3).Value = 'Shared'
End Select
Next
End With
End Sub


bonne soiree
MichelXld