Discussion :

[facteur]

Bonjour,

J'ai crée un fichier Excel qui est partagé sur plusieurs postes.
Il m'arrive parfois d'intervenir sur ce fichier pour x raisons.
Actuellement, je dois contacter mes collaborateurs pour qu'ils fermnte le fichier avant que je puisse le modifier.
N'y a t il pas un bout de code vba qui puisse, de mon poste, fermer ce fichier de tous les autre les postes où il est présent ?

merci de votre aide..

[PMO2017]

Bonjour,

Peut être une piste avec

1) code pour identifier les utilisateurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub aa()
Dim Users As Variant
Dim i&
Dim A$
'---
Users = ThisWorkbook.UserStatus
For i& = 1 To UBound(Users, 1)
  A$ = Users(i&, 1)
  A$ = A$ & Space(1) & Users(i&, 2)
  Select Case Users(i&, 3)
    Case 1
      A$ = A$ & " Exclusive"
    Case 2
      A$ = A$ & " Shared"
  End Select
  A$ = A$ & vbLf
Next i&
MsgBox A$
End Sub

2) Ce lien pour les déconnecter
https://support.office.com/fr-be/art...#bmremoveusers