Bonjour à tous,
 
J'ai trouver une source sur le net me permettant de détecter l'inactivité de la souris en suivant les coordonnées de la souris.
La personne précise qu'il ne faut pas oublier de rajouter deux timer pour que celà fonctionne.
 
Quelqu'un pourrait-il m'expliquer comment on ajoute les deux timer, ci joint le code :
 
[#1c00e2][/#1c00e2]Merci de votre aide
 
 
Ce bout de code permet de fermer votre application au bout d'un certain temps si la souris n'a pas bougé !  
Pensez à rajouter 2 timer !

 
'TC le 28/05/02  
' Position de X et Y par rapport a l'écran  
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long  
   
Private Type POINTAPI  
    X As Long  
    Y As Long  
End Type  
   
Public OLD_X, OLD_Y As Long  
Public OLD_DATE As Date  
Public Tempo_Fermeture As Integer  
   
Private Sub Form_Load()  
   
 Dim pos As POINTAPI  
    'Dim old_pos As POINTAPI  
     
    'Tempo du timer qui permet de récupérer toutes les secondes la position de la souris (en ms)  
    Timer_Pos_Souris.Interval = 1000  
    'Tempo tu timer qui permet de fermer l'appli(en ms)  
    Timer_Unload.Interval = 3000  
    'Au bout de "Tempo_Fermeture" secondes on fermera l'appli ! (en s)  
    Tempo_Fermeture = 1  
   
End Sub  
   
Private Sub Timer_Pos_Souris_Timer()  
'Petite procédure pour récupérer  
'la nouvelle position de la souris  
'si celle-ci a changé depuis le précédent passage  
Dim pos As POINTAPI  
   
    GetCursorPos pos  
   
    If OLD_X <> pos.X And OLD_Y <> pos.Y Then  
        OLD_X = pos.X  
        OLD_Y = pos.Y  
        OLD_DATE = Now  
    End If  
   
End Sub  
   
Private Sub Timer_Unload_Timer()  
'Si aucune activité n'a été détecté i.e (la souris n'a pas bougé)  
'alors on ferme !  
If DateDiff("s", OLD_DATE, Now) >= Tempo_Fermeture Then  
    Unload Me  
End If  
   
End Sub

le Timer est un controle graphique (invisible à l'execution) que tu dépose sur une forme où un control.
Il est dans les ontroles par défaut de VB et ressemble a un vieux chronomètre.

En fait j'ai oublié de préciser que je suis sur excel 97, et je ne trouve pas ce chronomètre dont on me parle tout le temps.
Existe-il sous excel?

vu que je ne le trouve pas sous excel 2000, je doute qu'il existe sous excel 97