XL 2013 Fermeture du fichier en cas d'inactivité

[Dafaka7]

Bonjour le forum,

Aprés avoir regarder vos solutions pour fermer le fichier en cas d'inactivité je n'arrive toujours pas à l'adapter sur mon fichier.

J'aimerais simplement que le fichier se ferme au bout de x temps si il n'y a pas :
- De clic
- De changement de page
- De défilement de page (je ne sais pas si c'est possible)

Merci d'avance pour vos réponse
Cordialement,
@Dafaka7

 

[Eric C]

Bonjour le forum
Bonjour Dafaka7

Je n'ai ouvert ton fichier donc je n'ai pas vu ta procédure. Voici un fichier créé par notre regretté Ti. Il fonctionne parfaitement. Il faut régler la constante pour la durée. A adapter donc à ton fichier.

Bonne journée à toutes & à tous
@+ Eric c

 

[Dafaka7]

Merci beaucoup,

J'ai réussi à l'adapter.

Bonne journée

 

[Eric C]

Merci à toi aussi.

 

[Dafaka7]

Mais j'ai une question il n'y a t'il pas possibilité que lorsque tu scroll le compteur recommence à 0 ?
Ou mettre un message au bout de temps de temps pour prévenir l'utilisateur que le fichier va se fermer.

 

[Dafaka7]

J'ai récupérer un userForm via des anciennes conversations, mais je n'arrive pas à l'adapter.
J'ai une erreur à ce niveau :

Private Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
  Arret = GetTickCount() + Milliseconde
  Do While GetTickCount() < Arret
    DoEvents
  Loop
End Sub

 

[Dafaka7]

Bonjour,
Toujours d'actualité :
Je cherche à faire la fonctionnalité suivante :
Fermeture du fichier en cas d'inactivité au bout de 10 minutes
A 2 minute de la fermeture un UserForm s'ouvre en prévenant la fermeture du fichier.
Merci, le fichier ce trouve sur le message ci-dessus.

Cordialement,
@Dafaka7

 

[jm.andryszak]

Bonjour
Ci-joint un exemple qu'il reste à paramétrer.
Le calcul de l'inactivité se fait toutes les secondes, c'est trop ...
En espérant que j'ai bien déclaré les API, je suis en WIN32.
J'utilisais cette méthode lorsque j'étais en activité mais je ne retrouve plus mes archives.

 

[Dafaka7]

Bonjour jm,

C'est en effet ce que je voulais, cependant je n'arrive pas à l'adapter à mon fichier.
Pourriez-vous jeter un coup d'oeil ?

 

[jm.andryszak]

Il y avait un conflit avec les UserForm, j'ai donc créé UserForm3
et ça fonctionne chez moi
ci joint fichier
Bonne soirée

 

[Dafaka7]

Merci beaucoup, cela fonctionne.

 

[Dafaka7]

Bonjour le forum, bonjour @jm.andryszak ,

J'ai un problème de temps en temps lorsque je ferme le fichier il s'ouvre directement en boucle, je suis obligé d'aller dans le gestionnaire de tache pour pouvoir fermer le fichier. Savez-vous ce que je peux faire ?

 

[jm.andryszak]

Bonjour
A tester, rajouter dans le module ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Arret
End Sub
bonne journée

 

[Dafaka7]

Merci JM pour ta réactivité.

J'ai essayé, ça ne fonctionne toujours pas, j'ai réussi à détecter quand arrive le problème.

C'est quand tu clique sur la croix pour fermer, puis "enregister", alors ça ferme et ouvre à nouveau le fichier. Quand j'appuie sur "Ne pas enregister" alors le fichier ne s'ouvre plus.

 

[jm.andryszak]

Bonjour
Effectivement, j'ai aussi détecté le problème.
Je tente de le résoudre.
Dommage que je ne retrouve plus le fichier qui fonctionnait.
A bientôt pour une autre proposition.