compteur ouverture fichier

[moeglrol]

bonjour à toutes et tous,

quelqu'un saurait-il m'indiquer le moyen de comptabiliser le nombre d'accès à un fichier ? est-ce possible sous excel ? et comment ?

Merci de vos réponses ! ou pistes de réponses !

A bientot

 

[Spitnolan08]

Re : compteur ouverture fichier

Bonjour,

Une solution basique, en créant une feuille Compteur et en mettant cette macro dans ThisWorkbook :

Private sub Workbook_Open()
Sheets("Compteur").Range("A1") = Sheets("Compteur").Range("A1")+1
End sub

Cordialement

 

[Baside]

Re : compteur ouverture fichier

Bonsoir le Forum, le Fil,

Le nombre, c'est bien, mais savoir à quelle heure, au cas où...

Amicalement, Hervé.

 

[JYLL]

Re : compteur ouverture fichier

Bonsoir meoglrol, Spitnolan08 et le Forum,

Une solution à l'aide de macro dans thisworkbook qui crée un fichier "Pointeur.dat sous "C:" et qui vien le lire et l'incrémebter à chaque ouverture. je me servais jadis de ce systeme pour incréménter des numéros de factures avec l'année en plus.

Option Explicit
Dim Pointeur As Integer

' Macros Créées par J-Y L-L / XlDownload
'
Private Sub Workbook_Open()
        Call Lecture_Pointeur
End Sub

Sub Lecture_Pointeur()
On Error GoTo GestErreur
    Open "C:\Pointeur.dat" For Input As #1
        Input #1, Pointeur
        Close #1
        Call Ecriture_Pointeur
        Exit Sub
GestErreur:
Call Créate_Fichier

End Sub
Sub Ecriture_Pointeur()
'
    Open "C:\Pointeur.dat" For Output As #1
    On Error GoTo GestErreur
       Print #1, (Pointeur + 1)
        Close #1
        Exit Sub
GestErreur:
        MsgBox "Ecriture non effectuée", 64, "informations"
        Close #1
End Sub
Sub Créate_Fichier()
Dim fs As Object, a As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("C:\Pointeur.dat", True)
    a.Close
 Call Ecriture_Pointeur
 End Sub

Bon test.

 

[STephane]

Re : compteur ouverture fichier

'solution de Laurent (L.L.) utilisant un nom caché.
Private Sub Workbook_Open()
If IsError([Zaza]) Then Names.Add "Zaza", 0, False
Names("Zaza").Value = [Zaza] + 1
MsgBox "Ouverture numéro " & [Zaza]
End Sub

il y a aussi d'autres catégories de zones masquées plus "systèmes".
cf. le site de laurent longre Ce lien n'existe plus (anciennemenet longre.free.fr)

bye bye