nom de l'utilisateur réseau

[spin]

Bonjour,
j'ai mis un classeur sur réseau. Lorsque j'ouvre ce
classeur et qu'il est dejà ouvert par qqun, je
souhaiterais récupérer par VBA le nom (loggin) de
l'utilisateur (et eventuellement son N° de machine).

Qqun a une idée??
Merci d'avance.

 

[jeanpierre]

Re : nom de l'utilisateur réseau

Bonjour spin,

A part mettre un espion sous forme de fichier texte, je ne vois pas grand chose.

Regarde déjà en bas de ce fil, dans les cinq discussions similaires, sinon une Recherche (en haut à droite sous ton pseudo) sur des mots tels que "Espion + Ouverture fichier"...

Sinon, quelque chose dans ce genre dans le ThisWorkBook_open :

Open ThisWorkbook.Path & "\opue.txt" For Append As #1
Print #1, Application.UserName, Now
Close #1

Mais ce n'est que pour le nom de l'utilisateur Excel.

Bonne journée.

Jean-Pierre

 

[spin]

Re : nom de l'utilisateur réseau

Merci pour ta réponse.

En fait j'ai résolu mon pb en faisant très simple:
dans le fichier que j'espione (Dashboard), module Workbook_Open, j'ai écris les lignes suivantes:
If ReadOnly = False Then
Range("UserId") = Environ("username")
Save
End If

Et dans le fichier qui appelle le fichier dashboard :
=> au préalable, après ouverture du fichier, je le referme aussitôt s'il est déjà ouvert ailleur en effectuant le code:
If ActiveWorkbook.ReadOnly = True Then
ActualUserId = Range("UserId")
ActiveWorkbook.Close SaveChanges:=False
Proc = 1
End If
ActualUserId étant une variable string public

puis juste après, le code suivant:
Workbooks("Dashboard.xls").Activate
If Err <> 0 Then
Err.Clear
MsgBox ("Dashboard is already opened by :" & Chr(13) & Chr(13) _
& "<< " & ActualUserId & " >>" & Chr(13) & Chr(13) _
& "Please close Dashboard and try again")
GoTo Out
End If

Ça marche nickel !

@+ 🙂