nom de l'utilisateur réseau

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

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 !

@+ 🙂