VBA Event Open meerdere meer dan 1 actie.

[Wimveer]

Ik wil dat een bestand bij openen automatisch ververst en na een x aantal minuten wordt afgesloten

De afzonderlijke actie's lopen(de timer is van dit forum geplukt) bij het Event Open maar samen lopen ze niet.

Bij twee acties lijkt het verversen in een lus te komen terwijl de timer wel werkt en het bestand afsluit.

Wat doe ik fout?

Private Sub Workbook_Open()

Workbooks("SOT No supply.xlsm").RefreshAll


Dim t As Date, a As Date
t = Time

DoEvents
Do
DoEvents
a = DateAdd("s", 1, Time)
If a = t + TimeValue("00:05:00") Then Workbooks("SOT No supply.xlsm").Close 1
Loop Until a = t + TimeValue("00:05:01")

End Sub

 

[edmoor]

Dat is geen timer, dat is een teller.
Maak een echte timer en zet die in een Module.
https://www.snb-vba.eu/VBA_Application.OnTime.html

 

[snb]

Wat doe je fout: na bijna 1 jaar gebruik je nog steeds geen code-tags. Foei.

 

[Wimveer]

Dank! Met jouw input als basis heb ik de macro's werkend gekregen.

 

[Wimveer]

Dat is geen timer, dat is een teller.
Maak een echte timer en zet die in een Module.
https://www.snb-vba.eu/VBA_Application.OnTime.html

dank