Discussion :

[seb30]

Bonjour à tous,

J'ai une petite application excel qui entre autre a besoin d'utiliser un fichier sur le réseau.
Donc lors de l'exécution d'une macro servant a enregistrer des données sur ce fichier distant, je vérifie tout d'abord si le fichier est ouvert.
Si le fichier est ouvert, j'aimerais pouvoir récupérer le nom de l'utilisateur qui l'utilise.
J'ai trouvé du code sur ce même forum mais apparemment je ne sais pas l'utiliser car il me renvoie mon propre nom d'utilisateur et non celui de la personne qui est sur le fichier distant.

Merci de votre aide,

Seb

[Invité]

Bonjour

J'ai trouvé du code sur ce même forum mais apparemment je ne sais pas l'utiliser car il me renvoie mon propre nom d'utilisateur et non celui de la personne qui est sur le fichier distant.

Et le code, il est où ?

Il nous faudrait le code d'origine, et le code que tu as fait pour voir s'il n'y a pas d'erreur.

Sinon, les membres auront dut mal à t'aider.

Starec

[seb30]

Désolé, voila le code pris sur un autre forum

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Attribute VB_Name = "RenseignementsReseau"
 
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
 
Declare Function GetUserName Lib "ADVAPI32.DLL" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
Const MAX_COMPUTERNAME_LENGTH = &H15
 
Function NomMachine() As String
 
Dim tempStr As String * MAX_COMPUTERNAME_LENGTH
Dim nbcar As Long
 
    nbcar = MAX_COMPUTERNAME_LENGTH + 1
    GetComputerName tempStr, nbcar
    NomMachine = Left$(tempStr, nbcar)
 
End Function
 
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
 
    S = String$(200, 0)
    N = 199
    Res = GetUserName(S, N)
    UserName = Left(S, N - 1)
 
End Function
 
Sub test()
    MsgBox NomMachine
    MsgBox UserName
End Sub

[Godzestla]

Apparement ce code fait ce que tu dis, à savoir :
. retrouver ton nom
. retrouver le nom de ta machine.

je ne crois donc pas que cela puisse t'aider dans ta recherche

Si le fichier est ouvert, j'aimerais pouvoir récupérer le nom de l'utilisateur qui l'utilise.