Discussion :

[XineMA]

Bonjour,

Lors de l'ouverture d'un fichier excel bien spécifique, j'aimerais avoir un fichier log qui me donnerait le nom de l'utilisateur la date et heure de son passage.

Je ferai cela en écrivant un procédure en VB qui écrirait dans un simple fichier texte le nom et la date et l'heure.

Pourriez-vous m'aider dans la réalisation de cette procédure?

Comment trouver le nom de l'utilisateur (système)

Merci

[SfJ5Rpw8]

voir la :

[Excel] Log des utilisateurs

[XineMA]

merci, cela m'a déja bien aidé mais comment pouvoir gérer qui est venu. Je veux dire par la que le 'user name' d'excel est modifiable donc ou est la crédibilité de ce user en cas de fraude?

Il faudrait prendre soit le nom des utilisateurs soit le nom réseau soit.... peut-être faire une gestion de connection avec mot de passe en VB??

[ouskel'n'or]

Pour avoir l'utilisateur, tu dois utiliser "Environ"

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
Sub UserNameTrouver()   '
Dim Entrée, Index
Index = 1
    Do
        Entrée = Environ(Index)
        If Not Left(Entrée, 5) = "PATH=" Then Index = Index + 1
    Loop Until Entrée = ""
    For i = 1 To Index
        If InStr(Environ(i), "USERNAME") <> 0 Then
            MsgBox Environ(i)
            Debug.Print Environ(i)
        End If
    Next
 
End Sub

Te donne l'utilisateur DU POSTE
A+


NB - Trouvé sur le forum... il y a longtemps

[XineMA]

merci, j'avais aussi cherché et apparement, je ne suis pas encore assez experte dans la fouille du forum.

[SfJ5Rpw8]

Pour Environ ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
msgbox environ("UserName")

[XineMA]

Effectivement c'est beaucoup + court

Merci

[ouskel'n'or]

Oui, bien sûr j'ai sorti ça d'un outil qui me sert à avoir tous les renseignements fournis par environ (probablement inspiré d'un code gentiment fourni par SilkyRoad, y'a longtemps). Mais tu peux le garder, j'en ai un autre

NB - Pour avoir tout... faut supprimer le If InStr(Environ(i),...