Discussion :

[rcec42]

Bonjour
Afin de fermer un classeur au bout d'un certain temps d'inactivité, j'ai declaré une procedure au niveau Workbook du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim PauseTime, Start
    PauseTime = 60  ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    ThisWorkbook.Save
   ThisWorkbook.Close
End Sub

Le probleme est que cela me bloque une procedure au niveau worsheet qui me permettait de declencher une procedure par un double clic sur une feuille du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Instruction 
End Sub

Merci d'avance pour une explication de mon erreur.

[carden752]

Bonjour,

Doevents donne le contrôle à d'autres processus mais pas aux évènements Excel, il me semble.

Il faudrait recréer un évènement public à initialiser et remettre à Nothing.

Quelque chose de ce genre à adapter peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public WithEvents monevenement As Application
 
Private Sub monevenement_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Instruction
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim PauseTime, Start
Set monevenement= Application
    PauseTime = 60  ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    ThisWorkbook.Save
   ThisWorkbook.Close
   Set monevenement= Nothing
End Sub

[pgz]

Bonsoir.

Je pense que ton idée de boucle sur le Timer n'est pas bonne. Il serait préférable d'utiliser OnTime.

dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub subQuitte
ThisWorkbook.Close True
End sub

dans le module ThisWOrkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:05:00"), "subQuitte"
End sub

A chaque nouvelle sélection, l'exécution de subQuitte est planifiée dans 5 mn. EN attendant, Excel peut travailler normalement.
Si une nouvelle sélection survient, on passe de nouveau dans la procédure de planification. Comme Excel ne peut gérer qu'une planif, la première est perdue. C'est reparti pour 5 mn.

Cordialement,

PGZ

[rcec42]

merci pour les réponses
La solutions de carden752 semble fonctionner.

Serait il possible d'avoir quelques explications sur l'instruction "withevents" dans la declaration de "monevenement", je ne la trouve pas dans l'aide VBA.

Je fais des essais avec ces nouvelles procédures, et si je ne rencontre pas d'autres problemes je passe à l"état résolu ce post.

Merci encore pour ces réponses aussi rapide.