application.ontime

[Spiesse]

Goedenamiddag,

ik vraag me af of onderstaande code dagelijks uitgevoerd wordt, ook al wordt het bestand niet afgesloten en heropgestart...

Private Sub Workbook_Open()
Application.OnTime TimeSerial(8, 30, 0), "saveascopy"
Range("A1").Select

End Sub

in module 1 staat

Sub saveascopy()
ActiveWorkbook.save
ActiveWorkbook.Sheets("Blad3").Copy
ActiveWorkbook.SaveAs Filename:="http://portaal/HR/Maaltijden/" & Format(Date, "ddmmyy") & ".xlsx", FileFormat:=51
    ActiveWorkbook.Close

End Sub

groeten,

Spiesse

 

[jkpieterse]

Nee, alleen de eerstvolgende keer dat het half negen is. Voeg de ontime ook toe aan saveascopy.

 

[Spiesse]

Sub saveascopy()
ActiveWorkbook.save
ActiveWorkbook.Sheets("Blad3").Copy
ActiveWorkbook.SaveAs Filename:="http://portaal/HR/Maaltijden/" & Format(Date, "ddmmyy") & ".xlsx", FileFormat:=51
    ActiveWorkbook.Close
Application.OnTime TimeSerial(8, 30, 0), "saveascopy"
End Sub

Jkpieterse,

is dit voldoende dan?

 

[jkpieterse]

Mits het net na 8:30 wordt aangeroepen wel En Excel mag natuurlijk niet gesloten worden.