software

I want to refresh my data every day at 12am. Does something like this
make sence?

Public RunWhen As Double

Sub StartTimer()

RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
schedule:=True
End Sub

Sub The_Sub()ActiveWorkbook.RefreshAll
StartTimer

End SubSub StartTimer()
Dim RunWhen As Double
RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
schedule:=True
End Sub

HTH
--
AP

gt; a écrit dans le message de news:
...
gt;I want to refresh my data every day at 12am. Does something like this
gt; make sence?
gt;
gt; Public RunWhen As Double
gt;
gt; Sub StartTimer()
gt;
gt; RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
gt; Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
gt; schedule:=True
gt; End Sub
gt;
gt; Sub The_Sub()
gt;
gt;
gt; ActiveWorkbook.RefreshAll
gt; StartTimer
gt;
gt; End Sub
gt;
This looks funny to me:

RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)

Maybe:

RunWhen = date TimeSerial(23, 59, 59)
or
RunWhen = date 1

Chip Pearson has lots of instructions at:
www.cpearson.com/excel/ontime.htm

wrote:
gt;
gt; I want to refresh my data every day at 12am. Does something like this
gt; make sence?
gt;
gt; Public RunWhen As Double
gt;
gt; Sub StartTimer()
gt;
gt; RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
gt; Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
gt; schedule:=True
gt; End Sub
gt;
gt; Sub The_Sub()
gt;
gt; ActiveWorkbook.RefreshAll
gt; StartTimer
gt;
gt; End Sub

--

Dave Peterson

now with something like RunWhen = date TimeSerial(23, 59, 59)
would that automatically refresh every day- or would it just do that
one day?It would only do it once.

But you could have your code set up the next time right after that time
finishes.

Chip shows you how at that link.
wrote:
gt;
gt; now with something like RunWhen = date TimeSerial(23, 59, 59)
gt; would that automatically refresh every day- or would it just do that
gt; one day?

--

Dave Peterson

It would run only once. See www.cpearson.com/excel/ontime.htm

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.comgt; wrote in message ups.com...
gt; now with something like RunWhen = date TimeSerial(23, 59, 59)
gt; would that automatically refresh every day- or would it just do
gt; that
gt; one day?
gt;