Time-out sur Application

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/12/2008, 22h55
babybell

Je n'ai mis qu'une partie du même code.
Dans la sortie manuelle, avec un bouton, je teste, quand je sors, si un autre programme est présent. Si oui, enregistrement et sortie simple du code, si non enregistrement et Quit Excel.
Dans la sortie auto, je teste si un autre programme est présent. Si oui, sortie simple du code, sinon, Quit.

Mais, même avec

Code:

ThisWorkbook.Close True

simplement c'est pareil
19/12/2008, 23h23
JackOuYA

Citation:

Envoyé par babybell

Je n'ai mis qu'une partie du même code.
Dans la sortie manuelle, avec un bouton, je teste, quand je sors, si un autre programme est présent. Si oui, enregistrement et sortie simple du code, si non enregistrement et Quit Excel.
Dans la sortie auto, je teste si un autre programme est présent. Si oui, sortie simple du code, sinon, Quit.

le code que tu nous montre quitte à tous les coups ..!

je ne vois pas dans ton code ou tu stoppe les procédures planifiées !

Voici ce que j'ai actuellement dans ma Base et qui fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each classeur In Workbooks
If classeur.Name <> "Base des Incidents.xls" Then
Exit For
End If
GoTo Fin
Next classeur
Windows("Base des Incidents.xls").Activate
Sheets("Accueil").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Fin:
Sheets("Accueil").Select
ActiveWorkbook.Save
Application.Quit

Je l'ai adapté avec les infos que tu m'avais donné

20/12/2008, 00h31
JackOuYA

Non il ne doit pas marcher ce code ..

une étiquette ( :fin) n'arrête pas la procédure et les lignes qui suivent sont exécutées.

pour tester s'il y as plusieurs classeurs ouvert il te suffit de tester la propriété count de workbooks.

ton adaptation de code ne contient toujours pas le code de fin des procédures planifiées !

Bonjour
Dans ce code, qui est celui appliqué à mon bouton FIN, ce qui arrête la procédure, ce n'est pas l'étiquette Fin: c'est

Code:

ActiveWorkbook.Close

qui enlève ma base une fois sauvegardée et qui laisse les autres applis présentes. En revanche, s'il y a plusieurs applis, c'est l'étiquette Fin: qui rentre en jeu.

Voici le code que j'utilise pour la procédure planifiée :

Code:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
Public yaLastDate As Date 'Variable  permettant d'effacer la tache planifiée..
Public yaLastContinue As Date 'Variable permettant d'effacer la tache planifiée..
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()
 
 
 
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()
Dim classeur As Excel.Workbook
Application.DisplayAlerts = False
For Each classeur In Workbooks
If classeur.Name <> "Base des Incidents.xls" Then
Exit For
End If
GoTo fin
Next classeur
Windows("Base des Incidents.xls").Activate
ActiveWorkbook.Close
fin:
Application.Quit
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 5 minutes
      yaLastDate = Now + TimeSerial(0, 0, 3000)
      Application.OnTime yaLastDate, "yaStoppe" 'Appel procédure fin application
 
    End Sub

et dans ThisWorbook :

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
Private Sub Workbook_Open()
yaTestActivite
End Sub
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

Tout cela fonctionne quand il n'y a que ma base. Pas quand j'ai plusieurs applis en même temps.

20/12/2008, 09h29
JackOuYA

tu n'as pas déplacé la déclaration de la variable :

Code:

Static yaLastDate As Date 'Variable statique permettant d'effacer la tache planifiée..

Cette variable doit être disponible pour toutes tes procédures qui stoppent les actions planifiés.

pour ton :fin , peu-être que ton thisworkbooks.close met fin à ta procédure avant le end sub, mais j'ai un gros doute et de toutes façon c'est trés laid comme code !
20/12/2008, 10h13
babybell

J'ai constaté qu'en mode pas à pas, cela fonctionne. Quelle est la différence avec l'exécution automatique ?
20/12/2008, 13h42
JackOuYA

Citation:

Envoyé par babybell

J'ai constaté qu'en mode pas à pas, cela fonctionne. Quelle est la différence avec l'exécution automatique ?

essai d'éviter de partir dans tous les sens si tu n'as pas corrigé la déclaration de variables cela ne doit pas marcher.
20/12/2008, 13h54
babybell

Comme tu me l'as conseillé, j'ai mis le code

Code:

Static yaLastDate As Date

disponible pour toutes tes procédures qui stoppent les actions planifiés, mais cela ne change rien.
Elle y est dans :

Code:

Sub yaContinue

et dans mon module de fin
20/12/2008, 18h59
JackOuYA

Citation:

Envoyé par babybell

Comme tu me l'as conseillé, j'ai mis le code

Code:

Static yaLastDate As Date

disponible pour toutes tes procédures qui stoppent les actions planifiés, mais cela ne change rien.
Elle y est dans :

Code:

Sub yaContinue

et dans mon module de fin

je n'ai pas dis cela , une variable vb ne doit être déclarée qu'une seule fois !

A force de persévérence, j'ai trouvé ce que je voulais et c'est finalement plus simple.
Dans ThisWorkbook

Code:

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
test_timer
End Sub

puis dans un module :

Code:

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
Option Explicit
Sub test_timer()
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
MsgBox "1 mn d'inactivité"
Dim classeur As Excel.Workbook
For Each classeur In Workbooks
If classeur.Name <> "TEST_OK.xls" Then
Exit For
End If
GoTo Fin
Next classeur
Windows("TEST_OK.xls").Activate
Application.ThisWorkbook.Close False
Fin:
Application.Quit
End Sub
Sub Fin()
Dim classeur As Excel.Workbook
For Each classeur In Workbooks
If classeur.Name <> "TEST_OK.xls" Then
Exit For
End If
GoTo Fin
Next classeur
Windows("TEST_OK.xls").Activate
Application.ThisWorkbook.Close True
Fin:
ActiveWorkbook.Save
Application.Quit
End Sub

Merci encore à toi.

20/12/2008, 19h20
JackOuYA

si c'est cela que tu voulais ta question est mal posée :

Citation:

MsgBox "1 mn d'inactivité"

il n'y as rien dans ton code qui détecte l'inactivité..!!

Bonsoir

Cela fonctionne quand on met le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Sub test_timer()
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
MsgBox "1 mn d'inactivité"
Dim classeur As Excel.Workbook
For Each classeur In Workbooks
If classeur.Name <> "TEST_OK.xls" Then
Exit For
End If
GoTo Fin
Next classeur
Windows("TEST_OK.xls").Activate
Application.ThisWorkbook.Close False
Fin:
Application.Quit
End Sub

directement dans une feuille
et dans un module

Code:

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

pour une fin manuelle

21/12/2008, 23h36
JackOuYA

Citation:

Envoyé par JackOuYA

si c'est cela que tu voulais ta question est mal posée :

il n'y as rien dans ton code qui détecte l'inactivité..!!

Effectivement, cela ne répond pas entièrement à ce que je désirais faire, mais malheureusement, je n'arrivais pas à faire tourner le code que tu m'as proposé lorsqu'il y a plusieurs applis qui tournent en même temps.
Celle dont on parle, je suis obligé de l'appeler en ouvrant, car contrairement à ce que j'ai écrit, elle ne fonctionne pas dans la feuille concernée car, ayant déjà des commandes style
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'MsgBox ("prestataire") If Target.Column = 7 Then If ActiveCell.Value = "" Then If Target.Row < 500 Then xx_Prestataires.Show Range(Target.Address).Offset(0, 3).Select End If End If End If end sub
cela fait des conflits car je n'arrête pas de faire appel à ces routines. Je vais essayer de plancher sur tes idées.

12/05/2009, 10h56
babybell

Bonjour

Dans la continuité de la question sur le time-out(qui fonctionne) j'aimerai afficher dans une pseudo horloge le temps restant avant la fermeture d'excel. J'ai regardé sur le forum sans trouver de solution à mon problème.
Quelqu'un pourrait-il venir à mon aide, je l'en remercie par avance.

Voir 40 message(s) de cette discussion en une page