Discussion :

[thedjtony]

bonjour, j'ai créer un script en visual basic qui me permet d'envoyer les données d'une feuille excel vers un afficheur par port série avec des valeurs actualisées en permanence.
Toute fonctionne correctement j'utilise une boucle avec une tempo pour raffraichir les données toutes les 10 secondes cependant tout les jours a minuit l'excecution s'arrete et je n'arrive pas a savoir pourquoi.

Auriez vous une solution je vous laisse les lignes de commande

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
Private Sub CommandButton1_Click()
 
Dim i As Integer
Do
   Dim r, Data
   Range("E35").Select
   Open "\\Poste-xp1\C\jackpot.txt" For Input As #1
   r = 0
   Do Until EOF(1)
      Line Input #1, Data
      ActiveCell.Offset(r, 0) = Data
      r = r + 1
   Loop
   Close #1
Dim m_oSheet As Feuil1
   Set m_oSheet = ThisWorkbook.Sheets.Item(1)
 
Dim szText As String
 
   Set m_oRange = m_oSheet.Cells.Item(8, 1)
   szText = m_oRange.Value
 
   f_ret = AdaptiveRTUpdate1.VariableUpdateText("D", szText, "COLOR_RED", "STYLE_DEFAULT")
 
   If f_ret <> 1 Then
      MsgBox "Error : " & AdaptiveRTUpdate1.GetErrorDescription(f_ret), vbExclamation, "RTupdate ActiveX"
   End If
Dim t As Date
   t = Timer + 10: Do Until Timer > t: DoEvents: Loop
Loop
 
 
End Sub

[ouskel'n'or]

Le timer donne l'heure pour le jour. Quand tu dépasses minuit, il repasse à zéro.
Utilise une variable intermédiaire et la variable mod 10

Code :

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

1
2
3
4
t = Timer mod 10 'afin de commencer à 0
Do Until Timer - t Mod 10 = 0 
     DoEvents
Loop

Tu peux tester pour moi ?
A+

[thedjtony]

malheureusement il se passe rien j'ai l'erreur do sans boucle donc j'ai modifié le code en :

Code :

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

1
2
t = Timer Mod 10 'afin de commencer à 0
Do Until Timer - t Mod 10 = 0: DoEvents: Loop

et quand j'éxécute il reste bloqué en permanance sur la ligne.

cependant j'ai eu une réponse sur un autre forum et ça marche nickel, je met le code ici ça peut servir

Code :

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

1
2
Dim t As Date
t = Now(): Do Until DateDiff("s", t, Now()) > 9: DoEvents: Loop

[ouskel'n'or]

Oui, timer donne un nombre à décimales
Mais suis-je bête, utilise Wait

Code :

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

Application.Wait(Now + TimeValue("0:00:10"))

A+