Microsoft 365 Actualisation automatique régulière des données

youky(BJ)

XLDnaute Barbatruc

• 20 Août 2019

• #2

Bonjour et bienvenu,
Il faut la méthode OnTime voici un exemple qui toutes les 15 secondes exécute la marco Ta_macro

Application.OnTime Now + TimeValue("00:00:15"), "Ta_macro"
Bruno

 

Vote positif 0 Vote négatif

N

neutralprod

XLDnaute Nouveau

• 20 Août 2019

• #3

Bonjour et merci pour l'aide.

avec ce code la macro est executée une fois seulement je pense, comment faire pour que cela tourne en boucle permanente ?

VB:

Sub Macro1()
'
' Macro1 Macro
'

    ActiveWorkbook.RefreshAll
    
End Sub


Sub Macro2()
'
' Macro2 Macro
'

    Application.OnTime Now + TimeValue("00:00:05"), "Macro1"

End Sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Août 2019

• #4

Sub Macro1()
'ici marco de chargement ou actualisation du .cvs
'blabla et . . .
Application.OnTime Now + TimeValue("00:00:05"), "Macro1"
End Sub
Bruno

ou bien
Sub Macro1()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:05"), "Macro1"
End Sub
Bruno

 

Dernière édition: 20 Août 2019

Vote positif 0 Vote négatif

N

neutralprod

XLDnaute Nouveau

• 20 Août 2019

• #5

Effectivement cela marche bien mieux ainsi, merci beaucoup.
est-il possible de trouver un petit bout de code qui arrête la macro en cliquant simplement sur un bouton que je mettrai dans la fichier excel ?

VB:

Sub Macro1()
'
' Macro1 Macro
'

    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:05"), "Macro1"
    
End Sub

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Août 2019

• #6

Bonjour à tous,

à mettre dans un module standard

VB:

Dim tMemo

Sub Macro1()
    ActiveWorkbook.RefreshAll
    tMemo = Now + TimeValue("00:00:05")
    Application.OnTime tMemo, "Macro1"
    Debug.Print tMemo
End Sub

Sub stopMacro1()
    Application.OnTime tMemo, "Macro1", , False
End Sub

penser à appeler stopMacro1 également depuis Workbook_BeforeClose() si tu ne veux pas que ton fichier se rouvre.
eric

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Août 2019

• #7

voici un fichier exemple
Bruno

 

Pièces jointes

• Exemple_OnTime.xlsm

  15 KB · Affichages: 20

Vote positif 0 Vote négatif

N

neutralprod

XLDnaute Nouveau

• 20 Août 2019

• #8

Ça marche impeccable !

merci à tous les deux

 

Vote positif 0 Vote négatif