Macro avec boucle qui s'exécute tous les x minutes

Version imprimable

14/04/2017, 19h56
Geekdu39

2 pièce(s) jointe(s)

Macro avec boucle qui s'exécute tous les x minutes

Bonsoir,

Actuellement j'ai crée un fichier avec les temps d'attente d'un parc d'attraction qui se met à jour à partir d'un site web.
Pièce jointe 264786
Mais, voulant faire des statistiques, je voudrai que tous les x minutes, la cellule du temps d'attente soit copié dans une autre cellule de la même ligne et dans une autre colonne (par exemple pour le premier dans D2,E2,F2,...) avec l'heure d'ajout comme titre de la colonne.
J'ai déjà essayé de le faire en vba mais, venant juste de commencer, je ne sais pas du tout comment faire. Je pense qu'il faudrait une boucle qui s'exécute toutes les x minutes mais je ne suis pas sûr.
Voici mon script vba :
Pièce jointe 264784
Du coup comment fait-on pour automatiser cela ?

Merci d'avance pour votre aide

Cordialement
14/04/2017, 20h10
Nicolas JACQUIN

bonjour,
recherche du coté de Application.OnTime

1 pièce(s) jointe(s)

Bonsoir,

cf exemple en PJ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim temps
Sub majHeure()
 ThisWorkbook.Sheets("feuil1").[A1] = Now
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
End Sub
 
Sub auto_open()
   majHeure
End Sub
 
Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

Boisgontier

Bonjour,
Apparemment ça aide pas, voici un exemple à adapter à ton problème

Code à placer 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
Option Explicit
 
Sub TEST()
 
Dim derligne As Integer
Dim i As Integer
derligne = Range("B65536").End(xlUp).Row
'Boucle sur tes lignes à actualiser
For i = 1 To derligne
    'Ton action à exécuter
    Range("D" & i).Value = Now
Next i
'Active la gestion de l'évènement toute les 5 secondes
Application.OnTime Now + TimeValue("00:00:05"), "TEST"
 
End Sub
 
 
Sub StopTEST()
    On Error Resume Next
    'Stopper la gestion de l'évènement
    Application.OnTime Now + TimeValue("00:00:05"), "TEST", , False
End Sub

Et code à placer dans ThisWorkbook

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Workbook_Open()
    'Activation
    TEST
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Désctivation
    StopTEST
End Sub

En espérant que ça pourra t'aider ;)

16/04/2017, 09h56
Geekdu39

Merci beaucoup de votre aide, cela fonctionne nickel !

Cordialement