compte à rebours

[mephis]

Bonjour le forum.

J'essaie de faire un compte un rebours dans le cadre de mon travail.
Vous me direz surement qu'en cherchant un peu sur le net j'aurai trouvé, et c'est vrai j'en ai trouvé plein, mais ce n'est pas un simple compte a rebours que je recherche.

J'aimerai que le compte à rebours ne se mette en route que si il n'y a pas eu d'activité pendant plus d'une minute sur excel.
Il ne me manque donc plus que le code qui permet d'activer le compte à rebours au bout d'une minute d'inactivité
Merci à tous.
Cordialement

 

[Victor21]

Re : compte à rebours

Bonjour, mephis.

Pour que Excel calcule la durée d'une minute, il faut qu'Excel soit actif.
AMHA, ce n'est donc pas possible.

Mais peut-être me gourre-je !

 

[mephis]

Re : compte à rebours

Quand je parle d'inactif c'est quand il est ouvert mais qu'aucune action ne s'y produit.


J'ai essayé avec ça mais j'ai un problème, il me dit "argument non facultatif" et me met .ontime en jaune


Private Sub workbook_open()


Application.OnTime Now + TimeValue("00:00:05"), "ExecutionTimer"

End Sub

 

[GIBI]

Re : compte à rebours

Bonjour,

Application.OnTime (Now + TimeValue("00:00:05")), "ExecutionTimer"

dans ton exemple, tu déclenche un "Chrono" à l'ouverture de ton excel


Pour repérer l'activité d'excel, il n'y a pas d’évènement générique tu devra travailler avec :

le changement d'onglet
Private Sub Worksheet_Activate()
Travail=Timer
End Sub

le changement de cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Travail=Timer
End Sub


dans ""ExecutionTimer" tu peux détecter le temps d'inactivité si (Timer -Travail) > délai ==>
sinon réinitialiser (Travail=Timer) et relancer le timer

 

[mephis]

Re : compte à rebours

je vois ce que tu veux dire mais je ne vois pas du tout comment il faut le codé

 

[mephis]

Re : compte à rebours

Merci GIBI mais je crois que nous ne sommes pas très bien compris.

Mon but est d'éteindre excel ( et non de le rallumer) si il est rester ouvert pour éviter les conflit sur un serveur privé.

 

[GIBI]

Re : compte à rebours

mephis,

l'exemple te donne la logique, c'est à toi de décider ce que tu veux faire par exemple si tu veux fermer ton classeur avec ou sans sauvegarde, remplacer le MSGBOX par


If ActiveWorkbook.Saved Then 'pas de modification du classeur
ActiveWorkbook.Close
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If


et si tu veux fermer Excel ==> Application.Quit

 

[BOISGONTIER]

Re : compte à rebours

Bonsoir,

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

JB

 

[mephis]

Re : compte à rebours

Merci à tous c'est parfait