problème avec le timer

Version imprimable

12/05/2009, 10h25
audrey76

problème avec le timer

bonjour,
jaurais besoin de votre aide.

jai réalisé un programme avec la fonction timer afin que le programme reboucle toutes les 10 minutes. et affiche une feuille excel toutes les 10 minutes.

mon soucis est le suivant : le programme ne se reboucle plus au bout de 350 minutes. or, jaurais besoin que celui-ci se reboucle sur une durée beaucoup plus grande.

quelqu'un aurait il une idée..?
merci d'avance.
12/05/2009, 10h30
Krovax

On peut avoir la parti du programme où tu utilises le timer?

voici le programme avec le timer :

Code:

1
2
3
4
5
6
7
8
9
 
Sub tempo()
'Dim Time As Single
duree = 10
    Time = Timer + duree * 60
    Do While Time > Timer
        DoEvents
    Loop
End Sub

il s'inscrit dans la boucle suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Btn_acquerir_BH_Click()
'Démarre l'acquisition d'une courbe B(H)
Dim variable As Integer
variable = 0
 
    Do While variable < 700
        Call courbeBH_yoko
        Call tempo
        variable = variable + 1
        Loop
    End If
    Label_etat.ForeColor = RGB(0, 190, 0)
End Sub

12/05/2009, 11h09
ucfoutu

Bonjour,

Une boucle avec la fonction Timer et DoEvents est de nature à surchauffer ton processeur au bout de quelques minutes (voire de moins en fonction de ta machine) et est donc à proscrire ...

Utilise plutôt Application.Ontime (à voir dans ton aide en ligne + de nombreux exemples d'application sur ce forum)
12/05/2009, 11h11
Krovax
essaye peut être celui la (je t'avouerais ne pas avoir attendu les 350 minutes
J'ai juste mis les bonne déclaration de variable dans tempo
et modifié la variable time qui est une commande donnant l'heure du système
Code:

1 2 3 4 5 6 7 8 9 Sub tempo() Dim duree As Integer Dim tps As single duree = 10 tps = Timer + duree * 60 Do While tps > Timer DoEvents Loop End Sub
A bout de 350 minutes il te fait une erreur?
Peut tu utiliser un espion pour voir les valeur de tes variables?
12/05/2009, 11h37
audrey76

au bout de 350 minutes, le programme ne sort pas de la boucle, mais il ne relance pas la mesure.

je lance la mesure le soir avant de partir du boulot. et lorsque je reviens le lendemain matin, je maperçois que le programme a bien rebouclé pendant 350 min. et après il ne se relance plus.

Bonjour,
Je rejoindrai plutôt l'avis de Ucfoutu, mais avec un petit exemple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public TimeOnOFF As Boolean
Public DelaiTimer As Date
 
'ON/OFF du timer
Sub DemarrerTimer()
    TimeOnOFF = Not TimeOnOFF
    If TimeOnOFF Then
        DelaiTimer = "00:10:00"
        Timer_EX
    End if
End Sub
 
Sub Timer_EX()
Dim VV
    If TimeOnOFF Then
        'Mettre le code à exécuter tout les...
        VV = TimeValue + DelaiTimer
        Application.OnTime VV, "Timer_EX"
    End If
End Sub

et dans le module ThisWorkBook

Code:

1
2
3
Private Sub Workbook_Open()
    DemarrerTimer
End Sub

A+
Edit :
Et l'erreur que tu a dans ton code est probablement un dépassement de capacité.
Le timer doit toujours avoir une valeur <24

12/05/2009, 14h23
audrey76

je ne comprends pas tout avec Application.OnTime

lorsque je lance le programme, celui-ci sarrete à TimeValue et affiche :
argument nor optional

quelquun a til une idée...

merci davance..
12/05/2009, 14h38
LeForestier

Ouuups.. petit oubli,

Code:

VV = TimeValue(Time) + DelaiTimer

A+
12/05/2009, 15h04
audrey76

bonjour,
cela fonctionne, mais la mesure ne recommence pas au bout de 10 minutes...
12/05/2009, 15h07
LeForestier

Tu a mis ton code à l'emplacement où j'ai mis..
'Mettre le code à exécuter tout les... ?
12/05/2009, 15h08
audrey76

oui

Ca va, j'ai compris,
modifie le code..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Btn_acquerir_BH_Click()
'Démarre l'acquisition d'une courbe B(H)
Dim variable As Integer
variable = 0
 
    Do While variable < 700
        Call courbeBH_yoko
        Call tempo
        variable = variable + 1
        Loop
    End If
    Label_etat.ForeColor = RGB(0, 190, 0)
End Sub

par..

Code:

1
2
3
4
5
6
Private Sub Btn_acquerir_BH_Click()
'Cliquer sur le bouton met l'acquisition en cour
'Cliquer une 2ème fois l'arrète
'ainsi de suite.
    DemarrerTimer
End Sub

Et tu remplace...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Timer_EX()
Dim VV
Static variable As Integer
    If TimeOnOFF Then
        If variable < 700 Then
            Call courbeBH_yoko
            variable = variable + 1
            'Si c'est un pas UF mettre le nom de la feuille
            UserForm1.Label_etat.ForeColor = RGB(0, 190, 0)
            VV = TimeValue(Time) + DelaiTimer
            Application.OnTime VV, "Timer_EX"
        Else
            TimeOnOFF = False
        End If
    End If
End Sub

Si pas clair tu dis...

12/05/2009, 15h34
audrey76

rectification...

le programme redémarre mais sans attendre...snif snif snif

:cry:
12/05/2009, 15h35
audrey76

merci pour ton aide..
je vais essayer et je te tiens au courant...
12/05/2009, 16h17
audrey76

cela fonctionne..cependant et oui...:cry:

lorsque le programme tourne, il crée une feuille avec des variables. la feuille s'apelle "variable".

lorsque le programme reboucle. il ne veut pas appeler la deuxième feuille par "variable+1". il me dit quil ne peut pas creer une feuille ayant le même nom que précedement soit "variable".
le programme n'agrément pas..
12/05/2009, 16h27
LeForestier

OK, mais je ne peu pas tout deviner ;)
tu déplace la ligne qui est dans Timer_EX

Code:

Static variable As Integer

Dans le haut du module (déclaration)

Code:

Public variable As Integer

A+
12/05/2009, 16h29
audrey76

...déjà essayé...:cry: :cry:
13/05/2009, 07h33
LeForestier

Citation:

Envoyé par audrey76

...déjà essayé...:cry: :cry:

Et tu met le topic Résolu ?
Comment ?
A+
13/05/2009, 09h23
audrey76

bonjour, javais réussi hier a faire fonctionner mon programme en magouillant dans le programme principale.
mais malheureusement quand je suis revenu ce matin. mon programme ne s'est pas rebouclé après 300 minutes.mon problème est revenu...

as tu à tout hasard d'autres idées...?
13/05/2009, 13h18
LeForestier

Tu a bien employer Time et non Timer ? parceque le timer se remet à 0 a minuit.
à quelle heure a-tu lancer le timer ?

Sinon je vois vraiment pas ce qui pourrait bloquer la fonction !!
Il doit y avoir autre chose qui bloque dans ton appli.
Autre idée, combien de feuilles tu avais ? 300 si je comprend bien ?
Tu arrive probablement au maximum des capacité de ton PC ou d'excel.
Quand il s'arrète, y-a-t'il un message d'erreur.