Time-out sur Application

**JackOuYA** · 12/12/2008, 14h54

il faut stopper la tache yaTestActivite , ou ne pas la lancer

rajoute une variable globale :

Code :

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

Dim yaClose As Boolean

yaStoppe ce limite alors a :

Code :

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

1
2
3
Sub yaStoppe()
  yaClose = True
End Sub

et au tou début de test activité :

Code :

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

1
2
3
4
 If yaClose Then
   ThisWorkbook.Close true
   Exit Sub
 End If

**babybell** · 12/12/2008, 15h55

le mieux est effectivement de la stopper

**JackOuYA** · 12/12/2008, 16h15

Envoyé par babybell

le mieux est effectivement de la stopper

tu as effectué les derniéres modifications proposés ..? j'ai utilisé la 2° solution, lorsque je veux stopper je monte un flag (yaClose) , et au prochain appel de yaTestConnection

close.

tu dis quoi ..

**babybell** · 12/12/2008, 20h44

Bonsoir

J'essaierai la semaine prochaine.
"yaTestConnection", tu le mets où ?

**JackOuYA** · 12/12/2008, 22h57

C'est Sub yaTestActivite() qu'il faut modifier. ( désolé pour le connection

)

**babybell** · 12/12/2008, 23h20

Bon Week end

**babybell** · 13/12/2008, 07h21

Bonjour

Pour résumer, si j'ai bien compri, le code devient :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim yaClose As Boolean
Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As LASTINPUTINFO) As Long
Private Type LASTINPUTINFO
 cbSize As Long
 dwTime As Long
End Type
'
' Procedure yaTestActivité .., à appeller au sur
'avec ThisWorkBook_open, ensuite elle s'appelle" toutes les secondes pour controler l'activité
Sub yaTestActivite()
 If yaClose Then
   ThisWorkbook.Close True
   Exit Sub
 End If
 Dim yaLastInput As LASTINPUTINFO
 Static yaMemoLastInput As Long
  yaLastInput.cbSize = Len(yaLastInput)
 If GetLastInputInfo(yaLastInput) <> 0 Then
    If yaMemoLastInput <> yaLastInput.dwTime Then
        yaMemoLastInput = yaLastInput.dwTime 'Memorise "le moment" de la derniére activité.
        yaContinue 'Le moment de la derniére activité à évoluer on continue.
     End If
 End If
 Application.OnTime Now + TimeSerial(0, 0, 1), "yaTestActivite" 'Test activité toutes les 10s
End Sub
Sub yaStoppe()
  yaClose = True
End Sub
'
' yaContinue doit être appellé au moins toutes les 30s sinon
' elle appelle la procédure yaStoppe..
'
'
    Sub yaContinue()
     Static yaLastDate As Date 'Variable statique permettant d'effacer la tache planifiée..
     If yaLastDate <> 0 Then
       ' Efface la date planifiée ..
       On Error Resume Next
        Application.OnTime EarliestTime:=yaLastDate, _
        Procedure:="yaStoppe", Schedule:=False
     End If
      'Calcul prochaine date dans 1 minutes
      yaLastDate = Now + TimeSerial(0, 0, 60)
      Application.OnTime yaLastDate, "yaStoppe" 'Appel procédure fin application
 
    End Sub

C'est bien cela ?

**JackOuYA** · 13/12/2008, 08h36

Envoyé par babybell

C'est bien cela ?

oui , alors tu dis quoi ...c'est ok?

**babybell** · 13/12/2008, 10h13

Ca ne fonctionne toujours pas. Quand je quitte la base incidents, pour voir, avec le pas à pas, j'ai toujours le même message d'erreur, et lorsque je charge plusieurs appli excel, quand je quitte la base, elle se relance automatiquement.

**JackOuYA** · 13/12/2008, 18h36

Bonsoir,

Il te faut terminer tes OnTime sur l'événement thisWorkbook.close..

mémorise pour chacune des 2 commandes Ontime la derniére date d'exécution demandé , puis sur le .Close exécute les 2 OnTime... avec Sheduled = false..

pour info .voir la façon dont testActivité termine le précédent Ontime ...

**babybell** · 13/12/2008, 22h21

Je suis désolé, mais là je n'arrive pas à suivre, cela devient trop compliqué pour moi pour l'instant. Je ne suis pas assez chevronné en VBA.
Merci quand même pour ton aide, je vais essayer de bidouiller tes codes.
Bonne soirée

**JackOuYA** · 14/12/2008, 00h08

un peu de bidouille alors :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public yaLastDate As Date 'Variable  permettant d'effacer la tache planifiée..
Public yaLastContinue As Date 'Variable permettant d'effacer la tache planifiée..
Dim yaClose As Boolean
Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As LASTINPUTINFO) As Long
Private Type LASTINPUTINFO
 cbSize As Long
 dwTime As Long
End Type
'
' Procedure yaTestActivité .., à appeller au sur
'avec ThisWorkBook_open, ensuite elle s'appelle" toutes les secondes pour controler l'activité
Sub yaTestActivite()
 Debug.Print Now & " yaTestActivité"
 Dim yaLastInput As LASTINPUTINFO
 Static yaMemoLastInput As Long
  yaLastInput.cbSize = Len(yaLastInput)
 If GetLastInputInfo(yaLastInput) <> 0 Then
    If yaMemoLastInput <> yaLastInput.dwTime Then
        yaMemoLastInput = yaLastInput.dwTime 'Memorise "le moment" de la derniére activité.
        yaContinue 'Le moment de la derniére activité à évoluer on continue.
     End If
 End If
 yaLastContinue = Now + TimeSerial(0, 0, 10)
 Application.OnTime yaLastContinue, "yaTestActivite"  'Test activité toutes les 10s
End Sub
Sub yaStoppe()
  ThisWorkbook.Close True
End Sub
'
' yaContinue doit être appellé au moins toutes les 30s sinon
' elle appelle la procédure yaStoppe..
'
'
    Sub yaContinue()
     Debug.Print Now & "--------> yaContinue"
     If yaLastDate <> 0 Then
       ' Efface la date planifiée ..
       On Error Resume Next
        Application.OnTime EarliestTime:=yaLastDate, _
        Procedure:="yaStoppe", Schedule:=False
     End If
      'Calcul prochaine date dans 1 minutes
      yaLastDate = Now + TimeSerial(0, 0, 30)
      Application.OnTime yaLastDate, "yaStoppe" 'Appel procédure fin application
 
    End Sub

dans ThisWorkBook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
       On Error Resume Next
        Application.OnTime EarliestTime:=yaLastDate, _
        Procedure:="yaStoppe", Schedule:=False
        Application.OnTime yaLastContinue, "yaTestActivite", False 'Fin tache
 
End Sub
 
Private Sub Workbook_Open()
 yaTestActivite
End Sub

je suis pas sur que l'on soit au bout , c'est pas une opération courante, il faut tester .

**babybell** · 14/12/2008, 11h13

Bonjour

Merci, je vois le cheminement.
Une question suis-je obligé de mettre dans "ThisWorkBook "ce que tu m'indiques.
Ma question vient du fait que le bouton que j'utilise pour sortir de ma base fait appel à un code qui fait certaines manips(des controles) avant de clore la base par un code que j'ai déjà dans this "worbook beforeclose"; et c'est justement quand je clique sur le bouton de sortie pour mes contrôles que ça se plante; je n'arrive même pas à this "workbook beforeclose".
D'où ma question première, suis-je obligé de mettre dans "this workbook beforeclose" le code que tu m'as indiqué ?

**babybell** · 15/12/2008, 08h38

Merci, mais la méthode de JackOuYA me va très bien, ça marche. Merci aussi à ucfoutu, mais étant sur un réseau, Excel n'étant pas directement sur mon poste, et ayant un système de sécurité où je ne peux rien écrire dans la base de registre où n'importe où ailleurs, ta méthode ne pourra pas fonctionner pour moi et mes collègues.
Merci encore

**babybell** · 18/12/2008, 19h23

Bonsoir à tous

Je pensais avoir trouvé la solution avec les les aides que j'ai eu, mais il n'y a rien à faire.
Lorsque je n'ai que ma base d'ouverte, que ce soit la fermeture automatique ou manuelle, cela fonctionne impeccablement.
Par contre, aussitôt que j'ai au moins 2 applis ouvertes en même temps, que ce soit en fermeture auto ou manuelle, ma base se relance toute seule à chaque fois, après s'être fermée.
La seule manière d'en sortir est de faire

Code :

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

Application Quit

, ce que je ne veux pas.
Merci de me venir en aide

**JackOuYA** · 19/12/2008, 20h55

bonsoir,

Tu dois avoir un probléme sur la déplanification des tâches planifiées :

soit tu n'exécute pas ces 2 lignes avant de fermer ton classeur :

Code :

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

1
2
3
   Application.OnTime EarliestTime:=yaLastDate, _
        Procedure:="yaStoppe", Schedule:=False
        Application.OnTime yaLastContinue, "yaTestActivite", False 'Fin tache

soit tes varaibles yaLastDate et yaLastContinue ne sont pas bien renseignée à ce moment la.

as tu rajouté la ligne "Option explicit" en haut de toutes tes feuilles de codes ?

**babybell** · 19/12/2008, 21h36

Non, je ne l'avais mis que dans le module de la sortie automatique

**JackOuYA** · 19/12/2008, 21h50

Envoyé par babybell

Non, je ne l'avais mis que dans le module de la sortie automatique

rajoute le pour être sur de ne pas avoir un probléme sur un nom de variable.

**babybell** · 19/12/2008, 22h26

je l'ai fait, cela ne change rien.
Quand le code est utilisé seul, cela fonctionne, aussi bien en sortie auto que manuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim classeur As Excel.Workbook
For Each classeur In Workbooks
If classeur.Name <> "base.xls" Then
Exit For
End If
GoTo fin
Next classeur
Windows("base.xls").Activate
ThisWorkbook.Close True
fin:
ThisWorkbook.Close True
Application.Quit

.
Par contre, lorsque j'utilise n'importe quel autre classeur, même vierge, le code se relance tout seul après la fermeture.

**JackOuYA** · 19/12/2008, 22h41

Envoyé par babybell

je l'ai fait, cela ne change rien.
Quand le code est utilisé seul, cela fonctionne, aussi bien en sortie auto que manuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim classeur As Excel.Workbook
For Each classeur In Workbooks
If classeur.Name <> "base.xls" Then
Exit For
End If
GoTo fin
Next classeur
Windows("base.xls").Activate
ThisWorkbook.Close True
fin:
ThisWorkbook.Close True
Application.Quit