Liste des utilisateurs sur un fichier sharepoint

**Donch** · 13/11/2019, 14h24

Bonjour,

Je souhaite récupérer la liste des utilisateurs "en cours" d'un fichier sur SHAREPOINT >> Comment puis-je faire avec VBA ?

L'idée derrière est de forcer le fichier excel à fermer si le fichier est déjà ouvert chez quelqu'un (sur un autre poste). Si vous avez une solution je suis preneur.... je cherche sans aucun résultat

Merci par avance pour votre aide.

**EricDgn** · 15/11/2019, 13h22

Bonjour,

Pour info, non testé: "detect if SharePoint file is opened by another user, if yes open file, if not close it"

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
20
21
22
23
Option Explicit
 
Sub accessWorkbook()
    Dim url As String
    url = "mySharePointURL"
    MsgBox workbookOpen(url)
End Sub
 
Function workbookOpen(url As String) As Boolean
   'return false if file is not locked by another user
    workbookOpen = False
   'open the workbook in read.only mode, so does no message is displayed when the file is use
   Set wb = Workbooks.Open(url, False, True)
   'change file access to ReadWrite without notifying if the file is locked by another user
   On Error Resume Next
   wb.ChangeFileAccess xlReadWrite, False, False
   'if the file is locked, this will return "true"
   workbookOpen = wb.ReadOnly
   'if the file is locked, it wil lbe closed without no changes
   If read.only = True Then
       wb.Close
   End If
End Function

Cordialement.