Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recupérer infos d'utilisation de fichier

jackfred

XLDnaute Junior
Bonjour, j'utilise le code ci-dessous pour faire un listing des ouvertures de fichier sur un fichier texte.
Ca marche tres bien.
Par contre j'aurais aimer que le nom du fichier ouvert s'inscrive également.
qq'un pourait me dire quel est le code à rajouter.. Merci

De plus... ca par contre je ne sais pas si c'est possible, j'airais aimé que les données (dates, nom d'utilisateur, nom d'ordinateur, fichier ouvert) s'enregistrent sur un fichier excel que je puisse traiter directement (et afin de faire resortir la "date de dernière visite" à chaque utilisateur.

Merci de votre aide


' ----------------------------------------------------
' Dans le haut d'1 module ordinaire - Déclaration des API
' ----------------------------------------------------

Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'---------------------------------
Function OSMachineName() As String
'Dave Peterson, mpep
Dim Buffer As String * 256
Dim BuffLen As Long
Dim lngX As Long
Dim strCompName As String
BuffLen = 255
If GetComputerName(Buffer, BuffLen) Then
OSMachineName = Left(Buffer, BuffLen)
End If
End Function
'---------------------------------
Function OSUserName() As String
'Dave Peterson, mpep
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then
OSUserName = Left(Buffer, BuffLen - 1)
End If
End Function
'---------------------------------
Copie la procédure suivante dans le ThisWorkbook de ton classeur
'---------------------------------
Private Sub Workbook_Open()

Dim Usager As String, Machine As String
Usager = OSUserName()
Machine = OSMachineName()
Open "C:CompteRendu.txt" For Append As #1
Write #1, "Usager : " & Usager & " " & "Ordi : " & Machine & " " & "Date : " & Now
Close #1

End Sub
 

Discussions similaires

  • Résolu(e)
Microsoft 365 32 ou 64 bits
Réponses
46
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…