Discussion :

[paul_thms]

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

[Jean-Philippe André]

Salut

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
 
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

[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)

[Jean-Philippe André]

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

[paul_thms]

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..