[VBA]Répéter une macro automatiquement
Résolu
Apolline
-
Bilow Messages postés 1014 Date d'inscription Statut Membre Dernière intervention -
Bilow Messages postés 1014 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais qu'une macro (je suis sous excel) se lance toutes les 30 sec, je crois qu'i faut faire une boucle mais je ne sais pas comment la faire :-(
voici le code de ma macro que je voudrais répéter
Sub RafraichissementGraphe()
Application.OnTime TimeSerial(0, 0, 10), "EnregistrerEnPageWeb"
End Sub
Merci d'avance
je voudrais qu'une macro (je suis sous excel) se lance toutes les 30 sec, je crois qu'i faut faire une boucle mais je ne sais pas comment la faire :-(
voici le code de ma macro que je voudrais répéter
Sub RafraichissementGraphe()
Application.OnTime TimeSerial(0, 0, 10), "EnregistrerEnPageWeb"
End Sub
Merci d'avance
A voir également:
- Vba répéter une action x fois
- Action - Guide
- Site x - Guide
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
2 réponses
Salut
L'application OnTime permet de lancer une procédure à une heure donnée.
Pour répéter une action à intervalles donnés, il ne faut donc pas que tu appelles ta procédure "EnregistrerEnPageWeb", mais que tu à nouveau ta procédure RafraichissementGraphe de manière à boucler.
Niveau code ça donnerai ça :
L'application OnTime permet de lancer une procédure à une heure donnée.
Pour répéter une action à intervalles donnés, il ne faut donc pas que tu appelles ta procédure "EnregistrerEnPageWeb", mais que tu à nouveau ta procédure RafraichissementGraphe de manière à boucler.
Niveau code ça donnerai ça :
Sub RafraichissementGraphe()
' Définit l'intervalle avec l'heure actuelle + trente secondes
DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30)
' Appel récursif de la fonction RafraichissementGraphe
Application.OnTime DansTrenteSecondes, "RafraichissementGraphe"
' Appel de la fonction EnregistrerEnPageWeb
Call EnregistrerEnPageWeb
End Sub
Encore merci
parceque j'aimerais la stopper à 21HOO?
Merci d'avance
Sub RafraichissementGraphe() ' Définit l'intervalle avec l'heure actuelle + trente secondes DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30) If DansTrenteSecondes < "21:00:00" Then ' Appel récursif de la fonction RafraichissementGraphe Application.OnTime DansTrenteSecondes, "RafraichissementGraphe" ' Appel de la fonction EnregistrerEnPageWeb Call EnregistrerEnPageWeb End If End Sub