Requête automatique sur le WEB

Bonjour forum,

À l'aide d'un tutoriel de Sébastien, je suis parvenu à créer une macro (MiQ) qui extirpe des données du WEB. Le tout fonctionne bien.

Cependant, pour parvenir à faire une requête à toutes les heures, je fait appel à une première macro qui initie les requêtes 5 minutes après l'heure. Voici une version abrégée de la macro.

         
    Private Sub Workbook_Open()

    Application.OnTime TimeValue("0:05:00"), "Collecte_MiQ"
    Application.OnTime TimeValue("1:05:00"), "Collecte_MiQ"
    Application.OnTime TimeValue("2:05:00"), "Collecte_MiQ"
    ...    Application.OnTime TimeValue("22:05:00"), "Collecte_MiQ"
    Application.OnTime TimeValue("23:05:00"), "Collecte_MiQ"
    End Sub
     

Le hic de cette macro vient du fait qu'elle s'arrête après 24 heures. Existe t'il une façon d'avoir une requête automatisée pour les prochains 6 mois au lieu des prochaines 24 hrs?

Je vous remercie pour vos réponses.

Émil

Bonjour,

Si tu veux relancer ta macro toutes les heures indéfiniment, tu peux la simplifier comme ceci :

Private Sub Workbook_Open()
    Collecte_MiQ
End Sub

Sub Collecte_MiQ()
    'Relance dans 1h
    Application.OnTime Now + TimeValue("1:00:00"), "Collecte_MiQ"

    'Ton code
    '...
End Sub

Cordialement,

Bonsoir Sébastien,

je suis désolé pour réplique tardive... et je tiens à te remercier pour le précieux conseil.

Émil