"Traduction" d'une macro EXCEL pour ACCESS
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:
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 |
---
