Log d'utilisation ( ? )

[TITANIC]

Bonjour le forum ( TITANIC ).
Je désires contrôler (dans un cadre professionel)
et stocker ( dans un fichier Excel ou texte ) les modification d'un fichier Excel.
Celà est il possible à votre avis ?
les données à stocker : chaque fois que le fichier est modifié, création d'une ligne avec la date et l'heure.
Merci pour votre aide.

 

[MichelXld]

bonjour

tu peux essayer cette macro , à placer au niveau de ThisWorkbook ( adapté d'une procedure de @+Thierry)
toutes les modifications sont enregidtrées dans un fichier texte dont il te restera à adapter le chemin


Option Explicit

Private Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, _
nSize As Long) As Long

'adapté de :
'@+Thierry
'http://www.excel-downloads.com/html/French/forum/messages/1_74783_74783.htm
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String, ThePath

ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

ThePath = 'C:\\\\\\\\Spy.txt' ' à adapter au réseau


Spy = _
Format(Now, 'DD/MM/YYYY HH MM SS') & vbTab & _
'User Name : ' & UserName & vbTab & _
Sh.Name & vbTab & Target.Address & vbTab & Target.Cells(1, 1)

Open ThePath For Append As #1
Print #1, Spy
Close
End Sub



bonne soirée
MichelXld

Message édité par: michelxld, à: 16/04/2006 17:51

 

[TITANIC]

Un grand, très grand merci pour ton code MihelXld car celà fonctionne très bien !
sauf que pour mon cas précis, je n'ai besoin que de l'heure d'accès et de modif, alors ue le code donné est beaucoup plus précis, et note en fait toutes les modifs ( changement de donnée dans les ellules etc...)mais qui oserait se plaindre d'un module aussi bien fait !! Encore merci.