Afficher le username d'un fichier en read only

[jeanyves1976]

Bonjour à tous,

Ca fait un bout de temps que je cherche à récupérer le username de l'utilisateur d'un fichier que j'ouvre alors qu'il est en read only. Bien sur j'ouvre le fichier avec une macro...

J'utilise la fonction suivante pour voir si le fichier est utilisé :

On Error Resume Next
FileNum = FreeFile()
Open (Wbkro) For Input Lock Read As #FileNum
Close FileNum
ErrNum = Err
On Error GoTo 0
Select Case ErrNum
Case 0 ' Fichier non utilisé
FichierLibre = True
Case 70 ' Fichier utilisé
FichierLibre = False

J'utilise la méthode suivantes pour ouvrir le fichier pour utilisation :

Set Wbk2 = Workbooks.Open(Filename:=Chemin & "\" & NomRepertoire & "\" & "Inventaire.xls")

Si quelqu'un à une petite idée, moi je suis à court....

jy

 

[pierrejean]

Re : Afficher le username d'un fichier en read only

bonjour jeanyves1976

et bienvenue sur XLD

Le username est obtenu par:

Application.UserName

mais comme son noml'indique c'est l'username de l'application et n'est pas propre au fichier

pour l'auteur du fichier tu peux t'inspirer de

MsgBox ThisWorkbook.BuiltinDocumentProperties("Author").Value

 

[jeanyves1976]

Re : Afficher le username d'un fichier en read only

Bonsoir,

Merci pour ta réponse, j'avais déjà explorer "application.username" mais le résultat c'est le nom de la session que moi j'ai ouverte et non pas le nom de l'utilisateur qui utilise le fichier actuellement ! 🙁

Maintenant il est possible qu'on ne sait pas le faire !!!

jean-yves