automatisch opslaan op bepaald tijdstip

[ronald1986]

Goedemorgen,

Ik zou graag mijn excelbestand standaard elke dag om 6:00 op willen slaan via VBA. Het bestand is altijd geopend en kan gewoon onder dezelfde bestandsnaam worden opgeslagen. Nou heb ik onderstaande macro gevonden maar ik weet niet hoe ik dit aan kan passen naar het tijdstip 6:00. Weet iemand hoe ik dit kan doen? Of moet ik misschien een heel andere macro gebruiken? En waar moet ik deze code plaatsen? in een module of in het workbook?

Sub StartTimer() 
     
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) 
    Application.OnTime earliesttime:=RunWhen, procedure:=Application.ActiveWorkbook.Save, _ 
    schedule:=True 
End Sub

Bvd!

 

[spaarie]

Ronald,

Volgens moet je het hiermee al redden

Private Sub Workbook_Open()
    Application.OnTime TimeValue("06:00:00"), Application.ActiveWorkbook.Save
End Sub

 

[ronald1986]

Ok, en moet ik deze code in een module zetten of ergens anders?

 

[spaarie]

ThisWorkbook...

Als het bestand geopend wordt en open blijft zal het bestand telkens om 6:00 opgeslagen worden. Als je hem afsluit en vervolgens weer opent gaat het weer in.

 

[mvw64]

Probeer het eens zo

Dit gedeelte in ThisWorkbook

Private Sub Workbook_Open()
Application.OnTime TimeValue("18:00:00"), "Tijd"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="Tijd", Schedule:=False
End Sub

Dit gedeelte in een module

Sub Tijd()
Workbooks("Wachten.xls").Save
End Sub

Wachten.xls aanpassen

 

[ronald1986]

ok dan! ontzettend bedankt! zo kom ik er helemaal uit!

 

[ronald1986]

Nog een kleine aanvulling op mijn vraag:

Is het ook mogelijk om alle geopende workbooks op te slaan?

Bvd!

 

[spaarie]

Maak een module met

Sub oplaan_openstaande_bestanden()
    For Each wb In Workbooks
        Application.Goto wb.Sheets(1).Cells(1)
        Application.ActiveWorkbook.Save
    Next wb
End Sub

en verander bovenstaande in ThisWorkbook

Private Sub Workbook_Open()
    Application.OnTime TimeValue("06:00:00"), "opslaan_openstaande_bestanden"
End Sub

Ongetest, maar volgens mij moet ie het wel doen

 

[ronald1986]

perfect, thnx spaarie!