probleme de procedure bloqué par un timer

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:

---

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:

---

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.

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:

---

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

---

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:

---

1 2 3

Sub subQuitte ThisWorkbook.Close True End sub

---

dans le module ThisWOrkbook :

Code:

---

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

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.