Liste des utilisateurs d'un classeur partagé

Private Sub UsersList() ' Michel Pierron
Dim Users, Msg As String, Status As String, i As Integer
Users = ThisWorkbook.UserStatus
For i = 1 To UBound(Users, 1)
Msg = Msg & Users(i, 1) & " " & Format(Users(i, 2), "dd/mm/yy h:mm") & "
"
If Users(i, 3) = 1 Then Status = "(Exclusive mode)" Else Status "(Shared
mode)"
Msg = Msg & Status & vbLf
Next
MsgBox Msg, 64
End Sub


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Sergio" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1f9c01c51a99$a40b9c70$a501280a@phx.gbl...
Bonjour à tous

J'aimerais savoir s'il est possible en VBA de lister les
utilisateurs connectés à un classeur partagé.

Vous voyez une solution vous ?

@ Bientot

Serge

Merci beaucoup

Tres bon code efficace et peu volumineux, bravo !!

@+

Serge

-----Message d'origine-----
Private Sub UsersList() ' Michel Pierron
Dim Users, Msg As String, Status As String, i As Integer
Users = ThisWorkbook.UserStatus
For i = 1 To UBound(Users, 1)
Msg = Msg & Users(i, 1) & " " & Format(Users(i,
2), "dd/mm/yy h:mm") & "

"
If Users(i, 3) = 1 Then Status = "(Exclusive mode)"
Else Status =

"(Shared
mode)"
Msg = Msg & Status & vbLf
Next
MsgBox Msg, 64
End Sub


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Sergio" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:1f9c01c51a99$a40b9c70$a501280a@phx.gbl...
Bonjour à tous

J'aimerais savoir s'il est possible en VBA de lister les
utilisateurs connectés à un classeur partagé.

Vous voyez une solution vous ?

@ Bientot

Serge


.