[VBA] Nom de la personne qui utilise le fichier Excel

Version imprimable

20/06/2017, 15h11
paul_thms

[VBA] Nom de la personne qui utilise le fichier Excel

Bonjour,

Lorsque je veux ouvrir un fichier Excel mais qu'il est déjà ouvert par quelqu'un (dans l'entreprise), un message apparait comme ceci : "Ce fichier est actuellement ouvert par "MR DUPONT" blablabla et on peut choisir de l'ouvrir en lecture seule ...

Je voudrais récupérer ce "MR DUPONT" en VBA.

Si quelqu'un sait comment faire..

Merci d'avance

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Test()
Dim TonFolder As String, TonFichier As String
TonFolder = "D;\dossierpartage\"
TonFichier = "fichierxls.xlsm"
 
    MsgBox "Le fichier est deja ouvert par " & GetFileOwner(TonFolder, TonFichier) & "." 
End Sub
 
Function GetFileOwner(fileDir As String, fileName As String) As String 
 
     'On Error Resume Next
    Dim secUtil As Object 
    Dim secDesc As Object 
    Set secUtil = CreateObject("ADsSecurityUtility") 
    Set secDesc = secUtil.GetSecurityDescriptor(fileDir & fileName, 1, 1) 
    GetFileOwner = secDesc.owner 
End Function

20/06/2017, 15h48
paul_thms

Je viens d'essayer mais ca me donne toujours le même nom... et non celui qui est entrain de l'utiliser (je pense que ca donne le nom du dernier enregistrement)
20/06/2017, 15h58
Jean-Philippe André

Autre solution proposee dans le forum :
https://www.developpez.net/forums/d2...lecture-seule/
20/06/2017, 16h10
paul_thms

Citation:

Envoyé par Jean-Philippe André

Autre solution proposee dans le forum :
https://www.developpez.net/forums/d2...lecture-seule/

Merci de cette autre solution. Cependant j'avais déjà lu ce topic et mon fichier est un fichier sans macro. Je ne peux donc pas faire les solutions proposées.. :?