compter le nombre d'ouverture d'un classeur

[MARIE74]

B) Boujour a tout le monde


Coucou 'jmps' t'es OU J'ai besoin de ton aide

Voila est il possible de mettre un compteur d'ouverture de classeur

En fait je veux savoir combien de fois le classeur a ete ouvert

Fait moi un truc sympa n'oublie que en VBA je suis presque nulle

D'avance Merci




Euhhh question: est ce que tu ressemble a la photo 😱

 

[Temjeh]

Bonjour marie

En attendant que jmps revienne du photographe voici une idée:

Dans le module workbook(Alt+F11 ...clic 2 fois sur Thisworkbook à gauche et colle à droite ceci)

Private Sub Workbook_Open()
Range('A1') = Range('A1') + 1
'sauvegarde avant qu'on ferme sans sauvegarde
ActiveWorkbook.Save
End Sub

Le compteur sera en A1(sur classeur vierge il enregistre sous la première fois)

A++

Temjeh

 

[MARIE74]

Rebonjour a tout le forum B)

Salut a toi Temjeh

Merci je vais faire un essai et je te tiens au courant









Pour jmps j'espere que le photographe a au moins 12 millions de pick et sels !!!! :woohoo: :woohoo:

 

[MARIE74]

Resalut B)

Bon Merci Temjeh ça marche mais ily a 1 probleme

Quand je l'ouvre il indique 1 ensuite je le ferme sans sauvegarde
et quand je l'ouvre a nouveaux il indique toujours 1 hors je souhaite qu'il additionne le nombre d'ouverture et pour cela il faut chaque fois sauvegarder.
Je veux qu'il compte meme sans sauvegarde (en clair je veux un mouchard) est ce possible

Merci de ton aide

 

[Mimi]

Salut Marie et au Forum,

On m'avait fais ceci une fois :
Private Sub Workbook_Open()
'**************************************
'Mouchard
'**************************************
Open ThisWorkbook.Path & '\\Mouchard.txt' For Append As #1
Print #1, Application.UserName, Now
Close #1
End Sub
Il te créer un fichier texte dans le même dossier que le classeur
comme ça tu vois la date et l'heure
@ plus Michel

 

[Temjeh]

Bonjour le forum
Bonjour marie

Oui bien sur qu'il te met toujours 1 car il faut que tu le sauvegarde au moins 1 fois sinon a quoi ca sert de monter une job sans l'enregistrer??????????

Sauvegarde 1 fois...ferme et réouvre et le compteur fonctionne.

Pour ce qui est de mimi elle a raison il faut être prudent avec les classeurs télécharger mais là on ne parle pas de classeur mais de code que tu copies!!!

A++

Temjeh

 

[Temjeh]

Rebonjour

Si tu veut aussi le mettre invisible tu met le compteur plus bas ...ex: en A100 et tu y met la police de la même couleur que ton fond

A++

Temjeh

 

[michel_m]

Bonsoir à tous,

Ci joint proposition: le compteur s'incrémente à l'ouverture

C'est tiré d'une très belle démo d'eric Renaud : 'lecture-écriture dans la base de registre'
sur son site 3 étoiles à ne pas manquer:
http://ericrenaud.free.fr/ [file name=visiteurs.zip size=10733]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/visiteurs.zip[/file]

 

[michel_m]

Le message est parti trop vite !

donc je termine:
Bon WE
Michel

 

[MARIE74]

B) Salut a tous michel_m Temjeh Mimi et tout le forum


Bonjour me revoila

Avez vous passez un BON W..END MOI OUI


Merci a tous c'est exactement ce que je voulais et ça marche
malgré le fait que je sois un presque 0 en VBA.


Encore merci a +

Gros bisous de Haute Savoie 😉