foutje in code

[Samsung6713]

Goedemiddag,

ik heb onderstaande code in thisworkbook staan.

Private Sub Workbook_Open()

     Application.OnTime Now + TimeValue("00:10:00"), "Save1"
     Application.OnTime Now + TimeValue("01:00:00"), "Backup"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    backup
    Application.OnTime Now + TimeValue("00:10:00"), "Save1", , False
    Application.OnTime Now + TimeValue("01:00:00"), "Backup", , False
End Sub

Sub Save1()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True

    Application.OnTime Now + TimeValue("00:10:00"), "Save1"

End Sub

Sub backup()

    ThisWorkbook.SaveCopyAs "C:\Users\naam\dropbox\backup\" & _
    Format(Now, "yyyy-dd-mm-hh-mm-ss") & "_" & _
    Application.ThisWorkbook.Name
    Application.OnTime Now + TimeValue("01:00:00"), "Save1"

End Sub

Doel is automatisch opslaan iedere 10 minuten, en backup bij openen, ieder uur en sluiten.
Nu krijg ik de error fout 1004 Methode ontime van opject_application mislukt

Waar zit ik fout met de code?

 

[alphamax]

C:\Users\jouck\dropbox\backup\

bestaat dit adres?

 

[edmoor]

Gebruik een variabele voor die tijden:

Dim Tijd1 As Date
Dim Tijd2 As Date

Private Sub Workbook_Open()
    Tijd1 = Now + TimeValue("00:10:00")
    Tijd2 = Now + TimeValue("01:00:00")
    Application.OnTime Tijd1, "Save1"
    Application.OnTime Tijd2, "Backup"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    backup
    Application.OnTime Tijd1, "Save1", , False
    Application.OnTime Tijd2, "Backup", , False
End Sub

Sub Save1()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    Tijd2 = Now + TimeValue("01:00:00")
    Application.OnTime Tijd2, "Save1"
End Sub

Sub backup()
    ThisWorkbook.SaveCopyAs "C:\Users\jouck\dropbox\backup\" & _
    Format(Now, "yyyy-dd-mm-hh-mm-ss") & "_" & _
    Application.ThisWorkbook.Name
    Tijd2 = Now + TimeValue("01:00:00")
    Application.OnTime Tijd2, "Save1"
End Sub

 

[Samsung6713]

nog steeds dezelfde foutmelding
bij

Application.OnTime Tijd2, "Backup", , False

 

[edmoor]

Werkt hier zonder enig probleem met je document uit #4.

 

[Samsung6713]

Het probleem zit in de backupcode, kan alleen niet vinden wat.

De map bestaat, en de backup word ook gemaakt.

Als ik de backupcode uitzet werkt het zonder foutmelding.

 

[edmoor]

Maak er eens dit van:

Sub backup()
    ThisWorkbook.SaveCopyAs "C:\Users\jouck\dropbox\backup\" & _
    Format(Now, "yyyy-dd-mm-hh-mm-ss") & "_" & _
    Application.ThisWorkbook.Name
    Tijd2 = Now + TimeValue("01:00:00")
    Application.OnTime Tijd2, "[COLOR="#FF0000"]backup[/COLOR]"
End Sub

 

[Samsung6713]

Ja dat is de oplossing, bedankt voor je hulp!

 

[Samsung6713]

Helaas nog steeds een foutmelding

Goedemorgen,

Ik krijg nog steeds een foutmelding: Methode Ontime van Object_application is mislukt.
Dit gebeurt bij het afsluiten en op

  Application.OnTime Tijd1, "Save1", , False

Als ik het bestand open, en sluit voor de Save1 uitgevoerd word, krijg ik geen foutmelding.
Ik heb de timer op 1 minuut gezet.

 

[edmoor]

Dat komt omdat je zaken verhuist hebt, maar niet compleet en zonder daardoor noodzakelijke aanpassing.
Haal die Dim opdrachten uit de ThisWorkbook_Open weg en zet dit in bovenin Module1:

Public Tijd1 As Date
Public Tijd2 As Date