compteur ouverture fichier

[lacryma]

bonjour à tous ,

Voilà j'aimerai insérer un compteur à l'ouverture d'un fichier .xls ( facture )

Ceci fonctionne très bien avec la macro suivante, à condition d'enregistrer le document avant de quitter

Private Sub Workbook_Open()
Range("E3") = Range("E3") + 1
End Sub

Y a t'il une solution pour que ce compteur affiche x+ 1 à la prochaine ouverture sans enregistrer ?

Exemple => je saisie mon document , je l'imprime , je quitte sans enregistrer ,
ensuite j'ouvre à nouveau pour établir la facture suivante en partant du fichier de base
tout en gardant ce compteur fonctionnel ?

merci pour vos solutions ....

 

[jeanpierre]

Re : compteur ouverture fichier

Bonjour lacryma et le forum,

La réponse est NON, si tu n'enregistres pas....

Peut-être, au moment de quitter, obliger l'enregistrement.... seule solution...

Il y a plein de fils la-dessus.....

Bonne recherche... et dimanche.

Jean-Pierre

 

[Lord Nelson]

Re : compteur ouverture fichier

Salut à tous,

Je verrais bien un truc de ce genre :

Private Sub Workbook_Open()
Range("E3") = Range("E3") + 1
ActiveWorkbook.Save
End Sub

A+
Horatio

 

[fred65200]

Re : compteur ouverture fichier

Bonjour

Ci joint un classeur avec des macros dans Thisworkbook

La macro créé un dossier JOURNAUX, dans le même répertoire que le classeur, et un ficher texte par mois. Dans ce fichier texte, les ouvertures et fermetures du classeur. Ne fonctionne pas si les macros sont désactivées.

Tu peux ajouter des évènements Before_Print etc...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Journalise "Impression de " & ThisWorkbook.Name & " par "
End Sub

Cordialement

 

[michel_m]

Re : compteur ouverture fichier

Bonjour,

Ci joint piste de solution en utilisant la base de registre

 

[lacryma]

Re : compteur ouverture fichier

Merci pour vos réponses ,

je vais voir pour les utiliser