Discussion :

[frederic123]

Bonsoir, je suis sur une boucle d'enregistrement VBA. je souhaite enregistrer en continu(indéfiniment) mes valeurs toutes les 30 minutes. le problème est l'utilisation de la fonction "TIMER" qui évolue de 0 à 86400 (24h x 3600 sec).MERCI d'avance pour l'aide ou les explications que vous pouvais m'apporter.

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
Sub CommandButton3_Click()
 
Dim a As Byte
Dim f As Integer
 
 
Start = Timer                               ' Définit l'heure de début.
pause = 1800                                ' 30 minutes = 1800 secondes.
 
Do
    Do While Timer < Start + pause          ' Je boucle tant que je ne suis pas arrivé à la condition
 
    DoEvents                                ' Donne le contrôle à d'autres processus.
 
        If Timer >= Start + pause Then      ' Si l'heure est = ou > à l'heure de début + La pause alors j'exécute la sauvegarde
 
f = FreeFile
Open "\\XPSTALO\servideo\dd\BLELEC.txt" For Append Shared As #f 'adresse du fichier BLELEC
For a = 1 To 46 ' ligne 1 à 46
Write #f, (" ; " & Range("A" & a) & " ; " & Range("B" & a) & " ; " & Format(Date, "DD/MM/YYYY") & " ; " & Format(Time, "hh:mm:ss") & " ; " & Range("I" & a) & " ; " & Range("D" & a) & " ; ") ''on selectionne les cellules que l'on veut copier ds le fichier texte
Next a
Close #f
 
        Start = Timer                   'Je réinitialise l'heure de début
 
        End If
 
    Loop
 
Loop Until Timer < Start + pause        'Je fais en sorte d'avoir une boucle infinie
 
End Sub

[Daniel.C]

Bonjour,

Regarde la méthode "Application.OnTime".