Timer pour fermeture du fichier

[bond]

Bonjour le forum,
Afin de limiter le temps d'ouverture d'un fichier, je souhaiterai placer un timer d'inactivité.
Selon moi, une macro devrait tourner en arrière plan lorsqu'il ne se passe rien en terme de sélection de cellule, voire en mouvement d'ascenseur.
J'ai tenté qqs recherches dans le forum sans trouver.
Ce type de code aurait déjà été réfléchi ?...
Sinon, merci pour les pistes de reflexion...

Bonnes fêtes.

 

[BOISGONTIER]

Re : Timer pour fermeture du fichier

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeInactif.xls
http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeInactif2.xls

JB

 

[gilbert_RGI]

Re : Timer pour fermeture du fichier

Bonjour

voir les réponses de laetitia90

ici 🙄

 

[MJ13]

Re : Timer pour fermeture du fichier

Bonjour à tous

Gilbert: Attention,Comme ce sujet m'intéresse, avec le fichier de Laetitia sur XL2007, j'avais eu des soucis car il n'y avait pas de schedule=false donc le fichier se r'ouvrait après sa femerture.

J'ai testé le premier fichier de JB en travaillant sur un autre fichier et je n'ai pas eu de problèmes, il s'est correctement fermé. Il faudra que je teste sur une application que j'ai en cours car j'avais justement des problèmes avec un Schedule=false inefficace.

Je privilégierai donc les fichiers de Jacques 🙂.

 

[bond]

Re : Timer pour fermeture du fichier

Merci, je compulse ce que vous m'avez passé pour le mettre à l'adapter à mon cas.
Pour compléter ce fil, je suis aussi parvenu à mettre la main la dessus :
https://www.excel-downloads.com/threads/timer-fermeture-ti-adapte.127696/

Boigontier, Gilbert et Mj, Encore merci pour vos réponses rapides et Bonnes Fêtes

 

[laetitia90]

Re : Timer pour fermeture du fichier

bonjour tous
effectivement dans mon fichier il manque un arret

il faut corrige cette macro rajoute un arrêt

Sub macro1()
If X = 0 Then arret: Windows("test.xls").Activate: ActiveWorkbook.Close False
X = 0
End Sub

il faut aussi regarde le code de l'ami James007 trés interessant

 

[bond]

Re : Timer pour fermeture du fichier

et, il est où ?

 

[laetitia90]

Re : Timer pour fermeture du fichier

rebonjour
le fichier en piece jointe
je viens de regarder les codes de l'ami JB
il faut t'orienter dessus bien mieux construit

 

[bond]

Re : Timer pour fermeture du fichier

Laetitia, sur tes indications c'est ce que j'ai fait...
Donc je me suis plongé dedans pour l'adapter -je veux suggérer à l'utilisateur de fermer le fichier via un msgbox, car il pourrait être en train d'utiliser les ascenseurs pour une consultation sans SelectionChange-, et finalement j'ai un pb avec la commande : Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
VBA bloque dessus, et je sais pas pourquoi...

 

[bond]

Re : Timer pour fermeture du fichier

Erreur d'exécution '1004' : La méthode 'OnTime de l'objet'_Application a échoué pour être plus précis !
Avec le didactitiel j'ai tenté la correction : Application.OnTime EarliestTime:=HeureArrêt, Procedure:="Fin", Schedule:=False, sans succès.
Bref, je bloque toujours...

 

[laetitia90]

Re : Timer pour fermeture du fichier

bonjour tous
un fichier intéressant détecte déplacement souris plus clic + clavier
peut être plus adapte a ta demande

 

[bond]

Re : Timer pour fermeture du fichier

Je reviens pour vous remercier, je suis parvenu à bricoler une compil de tout ça à mon cas de figure.
et, bien sur, la bonne année à tous.