Trace Ouverture de Fichier Option

[piwa]

bsr,

Je viens de faire une recherche sur le sujet et sur le forum et j'ai trouvé une partie de ma solution ici :
https://www.excel-downloads.com/threads/nombre-douverture-ou-acces-a-un-fichier.16399/

Voila le code :

Private Sub Workbook_Open()
'
Sheets("Trace").Unprotect ("mdp")
a = Sheets("Trace").Cells.Find("*", [A1], , , 1, 2).Row + 1
Sheets("Trace").Range("A" & a).Value = Application.UserName
Sheets("Trace").Range("B" & a).Value = Date
Sheets("Trace").Protect ("mdp")

End Sub


Private Sub fichier()

' Via fichier
' il faut mettre ce code à la place du code de Private Sub Workbook_Open()

fichier = "C:\Temp\le_fichier.txt" ' le chemin du fichier

Log = Application.UserName ' logging
dat = Date

Open fichier For Append As #1
Print #1, Log, dat
Close #1

End Sub

Par contre je voudrai que dans la colonne C de la feuille trace je recupere aussi l'heure d'ouverture .... et la je coince.

Merci de votre aide

 

[Sylvain]

Re : Trace Ouverture de Fichier Option

Bonsoir,

une idée : Sheets("Trace").Range("C" & a).Value = Now - Int(Now)

A+

 

[piwa]

Re : Trace Ouverture de Fichier Option

Genial ca marche impec .... Merci

Par contre je ne l'avais pas vu , mais si l'utilisateur n'enregistre pas et bien je n'ai pas de trace......

Je pourrai forcer l'enregistrement à l'ouverture ... mais vu la taille de certains fichiers ca va etre du tres lourd......

Merci encore

 

[Sylvain]

Re : Trace Ouverture de Fichier Option

Bonjour,

Peut-être comme suggéré essayer de faire l'enregistrement dans un autre document (fichier log).

A+