Discussion :

[bordeb]

Bonjour à tous,

Je suis à la recherche d'une macro qui me permettrait de tenir un journal des ouvertures (et fermetures) d'un fichier.

L'idéal serait de pouvoir afficher grace a une recherche dans ce fichier, une message box aux utilisateur qui l'ouvre pour la première fois.

Ce que je cherchais a faire à la base, mais il ne semble pas que ce soit possible.

Le fichier journal est sur un serveur, donc centralisé.

J'arrive à le faire dans un fichier .txt, mais pas possible de faire une recherche du coup.

Voici le code qui me permet d'obtenir ca :

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
journalise "fermeture"
End Sub
 
Private Sub Workbook_Open()
journalise "ouverture"
End Sub
 
Sub journalise(txt)
rep_journal = Sheets(11).Range("adr_rep")
If Right(rep_journal, 1) = "\" Then rep_journal = Left(rep_journal, Len(rep_journal) - 1)
On Error GoTo fin
If Dir(rep_journal, vbDirectory) = "" Then MkDir (rep_journal)
filnb = FreeFile
Open rep_journal & "\journal_" & Format(Now, "mmyy") & ".txt" For Append As #filnb
Print #filnb, Now & ", " & txt & ", " & Application.UserName
Close #filnb
fin:
On Error GoTo 0
End Sub

adr_rep est un nom ou est localisé mon fichier .txt


Est ce que quelqu'un aurait une idée, quelque chose.

Merci à tous

Bastien

[defluc]

J'arrive à le faire dans un fichier .txt, mais pas possible de faire une recherche du coup.

Consultes donc http://www.developpez.net/forums/d59...txt-vba-excel/

[bordeb]

J'ai finalement réussis grace à ce code si ça intéresse quelqu'un.

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
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Workbook_BeforeClose(Cancel As Boolean)
journalise "Fermeture"
End Sub
 
Private Sub Workbook_Open()
journalise "Ouverture"
End Sub
 
Sub journalise(txt)
rep_journal = Sheets(11).Range("adr_rep")
 
ficherOuvrir = rep_journal & "log.xlsx"
On Error GoTo fin
 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(ficherOuvrir)
 
intRow = 1
strDN = ""
intcolm = 1
strDN = ""
 
Do Until objExcel.Cells(intRow, 1).Value2 = ""
       intRow = intRow + 1
Loop
       objExcel.Cells(intRow, 1).Value = Now
       objExcel.Cells(intRow, 2).Value = Application.UserName
       objExcel.Cells(intRow, 3).Value = txt
 
objExcel.Workbooks(1).Save
objExcel.Workbooks(1).Close
objExcel.Quit
 
fin:
On Error GoTo 0
End Sub

Ce qui me donne un fichier Excel auquel s'ajoute a chaque ouverture et fermeture quelque chose comme :
14:50:14 Francois Dupont Ouverture
14:58:12 Francois Dupont Fermeture
14:59:17 Patrick Antoine Ouverture
Etc. Etc.