Tijdgerelateerde back-up maken

[Archimedes]

Beste luitjes,

Wie kan mij helpen om de code uit te breiden van deze code.
Het moet als dit kan om de vijf minuten een backup maken of dit vastleggen zodat niemand er meer bij kan.

de code is volgt:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Target.Next = Now()
    End If
End Sub

deze code werkt perfect in een werkblad die eventueel eindeloos werkt.

vrgr,
Archimedes

 

[Radjesh Klauke]

Even uit de losse pols... Hopelijk gaat het goed

Privata sub Workbook_Open()
    Application.Ontime = Now()+ "00:05:00", "BackUpBestand"
End Sub

module:

Sub BackUpBestand()
    ThisWorkbook.SaveAs(".....
End Sub

Ik heb je ook al op http://office.webforums.nl antwoord gegeven.

 

[Archimedes]

code voor vba

beste radjesh,

De code werkt nog niet helemaal .
de run break is op de komma tussen het tijdstip en het bestand?
Hoe verder op te lossen


VrGr, Archimedes

 

[Radjesh Klauke]

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:10"), "SaveWorkbook"
End Sub

Sub SaveWorkBook()
    ThisWorkbook.SaveAs ("test " & Format(Now, "hh-mm-ss") & ".xls")
End Sub

Zelf de tijd en format aanpassen naar eigen smaak.

 

[Archimedes]

code voor vba

Beste,

De code die als laatste hebt geschreven doet het ook niet.
Er wordt geen backup gemaakt in het systeem.

VrGr,
Archimedes

 

[Radjesh Klauke]

Vreemd, want de code werkt bij mij prima. Wat heb je gedaan?

 

[Wigi]

Er moet eventueel nog een locatie voor, bv. "C:\test " ...

Zoniet wordt de huidige directory genomen.

 

[Archimedes]

code voor vba

luitjes,

Ik krijg telkens een runtime error 1004.
Application-defined or object-defined error.
Ik heb precies dezelfde code neer gezet.

VrGr, Archimedes

 

[Radjesh Klauke]

Ik snap echt niet wat je doet.

Plaats dit in ThisWorkbook:

Option Explicit

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:15"), "BackupBestand"
End Sub

Plaats dit in een module:

Option Explicit

Sub Backupbestand()
    ThisWorkbook.SaveAs ("C:\" & ThisWorkbook.Name & " " & Format(Now, "mm-dd-yyyy") & ".xls")
End Sub

Sla het bestand op en heropen deze. Als je 15 seconden wacht, dan zal in C:\ een nieuw bestand zijn aangemaakt. (Dit om de 15 seconden)

 

[Archimedes]

code voor vba

Beste,

Ik doe precies hetzelfde code invullen als wat je hebt neergezet.
Alleen ondergaat mijn code een wisseling en krijg een foutmelding.
Met andere woorden, het systeem weigert iets te neer te zetten in C.

Volgens mij doe ik niets fout allen de code overnemen.


VrGr, Archimedes

 

[Radjesh Klauke]

!!!!!!!! :shocked:

Nou moe. Hierbij het bestand.

Wil toch wel eens weten wat je eerder hebt gedaan, want het is zeker niet zo gegaan als ik had gezegd. (Onmogelijk)

Hmm..... Wat voor Excel gebruik je?

 

[Archimedes]

code voor vba

beste Radjesh,

Wij gebruiken excel 2003 en volgens mij heb ik niets verkeerd gedaan.
Zou je zo vriendelijk willen om dit progje om te zitten in een ZIP.

VrGr,
Archimedes

 

[Radjesh Klauke]

Ook in Excel 2003 moet het werken. Ik heb het bestand opnieuw ingepakt. RAR-bestanden kun je tegenwoordig openen met WinZip overigens. Maar ik adviseer je over te stappen naar een ander inpakpogramma. Er zijn gratis alternatieven zoals http://www.7-zip.org/nl/.

 

[Radjesh Klauke]

Maarruuuuug... Is het nu wel gelukt of niet?

 

[Archimedes]

code voor vba

ik zal proberen om het progje op te sturen zoals hij zou moeten werken.
Op het moment van opstarten kreeg ik weer een error 1004.
Misschien kan je uit dit progje iets wijs en het is een excel prog.
Maar ik kan hem niet verzenden.

VrGr,
Archimedes

 

[Radjesh Klauke]

Op het moment van opstarten kreeg ik weer een error 1004.

Welke regel wordt gekleurd?

 

[Archimedes]

code voor vba

De tweede regel kleurt geel op, het moment van runnen.
ER staat niets in de tabblad, dus begrijp ik ook niet waarom niet?


VrGr,
Archimedes

 

[Radjesh Klauke]

Je maakt het me er elke keer niet erg duidelijk en/of makkelijker om een antwoord te geven Archimedes. Op deze manier blijf ik vragen. Graag het probleem zo duidelijk mogen en volledig mogelijk omschrijven.
Welke 2e regel wordt gekleurd? De regel in de module of in ThisWorkbook?

 

[Jan van Asseldonk]

Wij gebruiken excel 2003 en volgens mij heb ik niets verkeerd gedaan.

Kan ik hieruit concluderen dat je op een netwerk werkt?
Zo ja, pas dan het pad eens aan naar je home directory.
Foutmelding 1004 kun je namelijk ook krijgen als je geen schrijftoegang tot een directory hebt.
Bij ons op het netwerk kan een gebruiker alleen maar schrijven op C:\temp en op zijn eigen document en settingsdirectory. Vraag die anders even op bij je netwerkbeheerder.

 

[Archimedes]

code voor vba

Beste Jan,

Wij zitten op het netwerk van de zaak en kan op elke schijf komen die er is.
Maar dit progje doet het nog steeds niet, of moet ik iets veranderen wat betreft de C schijf.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Next = Now()
End If
End Sub


Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:00:15"), "SaveWorkbook"
End Sub


Sub SaveWorkBook()

ThisWorkbook.SaveAs "C:\PID" & Format(Now, "hh-mm-ss") & "test.xls"

End Sub


Er wordt nog steeds niet gebackupt naar de C schijf.
Doe ik wat verkeerd?

VrGr,
Archimedes