Discussion :

[tatabea]

Bonjour vous tous !

Dans le cadre de mon travail, j'ai installé une macro afin de connaître les détails de consultations de diverses analyses en EXCEL 2010 disponibles sur un réseau interne à mon entreprise. Nous faisons ceci afin de savoir qui (quels départements) consultent ces données et quand (profil utilisateur / date et heure de l'ouverture du dossier). Nous pensons pouvoir, à l'aide de ces relevés, optimiser les services que nous fournissons à nos collègues. Je me trouve toutefois confrontée au fait qu'une partie de ces analyses sont également faites en ACCESS 2010. J'ai essayé d'adapter la macro VBA pour ACCESS, mais je n'y arrive pas. Si quelqu'un peut me sauver la mise je lui en serais éternellement reconnaissante ! Mes collègues et moi trouvons idéal le fait d'obtenir ces infos de connections en .txt, format hyper léger et facilement utilisable pour effectuer une analyse ultérieure. Voici donc la macro en EXCEL .... je me serre les pouces pour la recevoir "traduite" en ACCESS ! Merci déjà à mes futurs sauveurs !!!

----

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
Option Explicit
Private Const ThePath As String = "nom du dossier.txt"
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
 
Private Sub Workbook_Open()
 
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
 
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
Spy = ThisWorkbook.Name & " sur " & ThisWorkbook.Path & " Ouvert le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
 
Open ThePath For Append As #1
Print #1, Spy
Close
 
End Sub

---

[marot_r]

Il te suffit d'appeler la sub Moucharder à l'ouverture du 1er formulaire de ta BD Access.

Module Mouchard

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
Option Compare Database
Option Explicit
Private Const ThePath As String = "nom du dossier.txt"
 
public sub Moucharder()
 
  Dim UserName As String, Spy As String
 
  username=environ$("UserName")
 
  Spy = currentproject.name & " Ouvert le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName
 
   Open ThePath For Append As #1
   Print #1, Spy
   Close #1
 
End Sub