Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

compteur ouverture fichier

  • Initiateur de la discussion Initiateur de la discussion lacryma
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lacryma

Guest
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 ....
 
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
 
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...
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Journalise "Impression de " & ThisWorkbook.Name & " par "
End Sub

Cordialement
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
779
Réponses
2
Affichages
995
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…