Laps de temps VBA

ok merci, je vais y jeter un oeil

Merci quand même. Non, je ne suis pas clem.

Non je suis une personne totalement indépendante de Tom.

Je ne me rappelle pas avoir posé cette question :$. Je vais me balader sur le forum, quelqu'un doit avoir posté quelque chose du genre :) désolé du dérangement

Tu devrais démarrer une nouvelle question plutôt que de te greffer sur celle-ci.
Met le code de ta fonction aussi, car tout dépend de ce qu'elle réalise et de comment tu l'as écrite.

eric

Merci je fais ca de suite!

Une petite erreur dans le code que j'ai posté, il y a un set qui manque. Voici le vrai code, si quelqu'un sait pourquoi ça ne marche pas je lui en serai reconnaissant.

Public MTime As Date

Sub Refresh()

Dim IE As New InternetExplorer
'Chargement d'une page web Google
IE.Navigate "www.youtube.com/watch?v=eVKj3u8JUm0"
'Affichage de la fenêtre IE
IE.Visible = True
'On libère la variable IE
Set IE = Nothing

MTime = Time
Application.OnTime MTime + TimeValue("00:03:30"), "Refresh"

End Sub

Re,

regarde le post 10 de pijaku...

eric

oui mais la le problème est en amont, c'est pourquoi il ne relance pas la macro telle qu'elle est actuellement? Il me dit qu'elle n'existe pas dans ce classeur au bout des 3min 30s...

Soit pas bouché...
Pour l'instant ma macro ne fait que lancer le navigateur toute les 3 min 30 s
Oui, parce que c'est ce que fait ton code.
Pijaku te propose de lancer le rafraichissement avec sendkeys

eric

au passage : https://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel/

Oui je connais, ce cours est vraiment intéressant! Mais je n'arrive pas à m'en sortir dans mon cas malgré tout.

Vraiment personne pour me dire comment faire marcher le programme please?

Ben déjà prend la peine de répondre aux propositions !!!
Voir le du 16 juil. 2012 à 15:00
eric

Ce post était de pijaku.

Pour moi il faut séparer la création de la fenêtre (à faire 1 fois) du rafraichissement.
Le pb avec sendkeys c'est qu'il faut activer la fenêtre en avant plan à chaque fois. Si tu travailles sur le micro en même temps ça risque de devenir pénible.

Sub Refresh()
    AppActivate "titre de ta fenêtre IE"
    MTime = Time
    SendKeys "{F5}", True
    Application.OnTime MTime + TimeValue("00:03:30"), "Refresh"
End Sub

Si c'est pour récupérer des données d'une page web regarde plutôt du coté de 'données / données externes / nouvelle requête sur le web...' qui peut être rafraichie automatiquement.
Pas toujours utilisable, ça dépend de comment est construit le site.
exemple de requête web : https://www.cjoint.com/?BGrmLxnysfp

eric

J'ai séparé les 2 comme tu m'as dit, voici la nouvelle macro mais ça m'affiche toujours le même message, même si mon navigateur est en avant plan. J'ai expérimenté sur une page youtube...

Public MTime As Date
Sub Refresh2()

AppActivate "Super Mario 64 - End theme "
MTime = Time
SendKeys "{F5}", True
Application.OnTime MTime + TimeValue("00:00:30"), "Refresh"

End Sub

Refresh étant un mot-clé vba change son nom, y compris lorsqu'il s'appelle (...+ TimeValue("00:00:30"), "Refresh" )

eric

Ah d'accord, inattention de ma part. Sinon, ça à l'air de bien fonctionner :) Même en rétrécissant la fenêtre ça marche!

Merci beaucoup

1) Si tu fais F1 sur on time tu auras un exemple complet.
2) il faut que tu mettes un compteur que tu incrémentes dans la boucle. Sselon sa valmeur tu fais ou ne fais pas.

eric

Merci eriiic, par contre pour annuler il faut faire une macro indépendante? Voilà ce que j'ai essayé et ça ne marche pas, j'ai aussi essayé sans le MTime.

Public MTime As Date
Sub Annuler()

Application.OnTime EarliestTime:=MTime + TimeValue("00:03:26"), Procedure:="Refresh2", Schedule:=False

End Sub

Bonjour,

il faut annuler le précédent temps activé que tu aurais mémorisé.
Mais comme tu veux arreter au bout de x fois, il suffit de tester le compteur et ne pas relancer.
Ca donnerait qcq chose comme ça :

Public MTime As Date, cpt As Long
Sub Refresh2()
    If cpt < 40 Then
        AppActivate "Super Mario 64 - End theme "
        MTime = Time
        SendKeys "{F5}", True
        Application.OnTime MTime + TimeValue("00:00:30"), "Refresh2"
        cpt = cpt + 1
    End If
End Sub

Il faudra peut-être déclarer la variable cpt en Static pour ton compteur, je ne peux pas tester.
Et une autre procédure pour remettre ton compteur à 0 et relancer.
eric

Merci, ça marche très bien!
Je l'ai déclaré en static et j'ai rajouté un else cpt=0, ainsi cpt se réinitialise dès que la boucle est finit.

Par contre je veux bien savoir comment on annule le temps précédent dans cet exemple sans passer par une condition, parce que ma tentative précédente est resté vaine...

Autre chose, tu sais si c'est possible de réactiver la fenêtre sur laquelle je travaillais avant chaque AppActivate? ça serait vraiment top si j'arrivais à déjouer ce défaut.

Merci

Bonjour,

Par contre je veux bien savoir comment on annule le temps précédent dans cet exemple sans passer par une condition, parce que ma tentative précédente est resté vaine...
Je t'y ai déjà répondu :
il faut annuler le précédent temps activé que tu aurais mémorisé ( et non un nouveau temps calculé).

Autre chose, tu sais si c'est possible de réactiver la fenêtre sur laquelle je travaillais
Et bien refais un appactivate en utilisant le paramètre wait

eric