Sub util_deja_ref()
Dim Users, Msg As String, Status As String, i As Integer, useractif As String, cpt As Integer
On Error GoTo util_deja_ref_erreur
useractif = Environ("USERNAME")
Users = ActiveWorkbook.UserStatus
cpt = 0
For i = UBound(Users, 1) To 1 Step -1
If UCase(Trim(useractif)) = UCase(Trim(Users(i, 1))) Then
cpt = cpt + 1
If cpt > 1 Then
ActiveWorkbook.RemoveUser (i)
cpt = cpt - 1
End If
End If
Next
GoTo util_deja_ref_fin
util_deja_ref_erreur:
Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
util_deja_ref_fin:
On Error GoTo 0
End Sub