opslaan bestand met interval

[sis123]

Bestaat er een scriptje om :

na openen workbook, de file om de 15 minuten te laten saven ?

-------------

niet de optie autoherstel maar echt hersaven om de 15 min

 

[Wigi]

Hier is code.

 

[jpvs]

Heb dit ooit eens gedownload en is ongeveer het zelfde als de link van Wigi :

[B]in "ThisWorkbook"[/B]
Option Explicit
Dim NextTime As Date
Sub Auto_Open()
        NextTime = Now + TimeValue("00:15:00")  
        Application.OnTime NextTime, "SaveMe"
End Sub

Sub Auto_Close()
      If NextTime <> 0 Then
      Application.OnTime NextTime, "SaveMe", schedule:=False
    NextTime = 0
  End If
End Sub

[B]In de "Module"[/B]Option Explicit
Dim NextTime As Date

Sub SaveMe()
      ThisWorkbook.Save
      NextTime = Now + TimeValue("00:15:00")  
Application.OnTime NextTime, "SaveMe"
End Sub

Bestand opslaan en terug openen voor de werking?


Pierre

 

[mbn]

Hier is code.

Ik heb de code die wigi voorsteld ook gebruikt en werkt goed en is lekker kort. Let wel op dat hij in this workbook komt, daar ging ik ook eerst de fout mee in

 

[sis123]

lukt niet helemaal

voorbeeldje

 

[jpvs]

Je bent de macro SaveMe vergeten te plaatsen in een Module ?

Pierre

Voor Macro's of functies kopiëren
zie de site van Ingrid B.
http://users.pandora.be/ingrid/excel/copyvba.htm

 

[sis123]

Je bent de macro SaveMe vergeten te plaatsen in een Module ?

Pierre

Voor Macro's of functies kopiëren
zie de site van Ingrid B.
http://users.pandora.be/ingrid/excel/copyvba.htm

jammer, het werkt nog niet

 

[mbn]

Je bent de macro SaveMe vergeten te plaatsen in een Module ?

Pierre

Voor Macro's of functies kopiëren
zie de site van Ingrid B.
http://users.pandora.be/ingrid/excel/copyvba.htm

Ik krijg het inderdaad ook niet werkend en het voorbeeld bestandje werkt ook niet.

 

[jpvs]

Wat verder gaan zoeken en dit gevonden:

Staat ingesteld op 15 minuten:

in ThisWorkbook :

Private Sub Workbook_Open() 
Application.OnTime DateAdd("n", 15, Now), "DoAutoSave" 
End Sub

in module1:

Public when 
Sub DoAutoSave() 
ActiveWorkbook.Save 
when = DateAdd("n", 15, Now) 
Application.OnTime when, "DoAutoSave" 
End Sub

Getest en werkt.

Pierre

 

[sis123]

Ok getest en ja het werkt !
:thumb:
Bedankt Pierre

 

[mbn]

ja dit werkt wel!

Dank je

 

[mbn]

Wat verder gaan zoeken en dit gevonden:

Staat ingesteld op 15 minuten:

in ThisWorkbook :

Private Sub Workbook_Open() 
Application.OnTime DateAdd("n", 15, Now), "DoAutoSave" 
End Sub

in module1:

Public when 
Sub DoAutoSave() 
ActiveWorkbook.Save 
when = DateAdd("n", 15, Now) 
Application.OnTime when, "DoAutoSave" 
End Sub

Getest en werkt.

Pierre

Dacht dat het goed ging maar er gebeurd iets raars. Als je meerdere exel bestanden hebt geopend dan slaat hij het bestand op welke op dat moment op je scherm staat. Ook al is dan daar de module niet in geplaatst. Hoe kan dat? Moet de code misschien in this workbook?

 

[jpvs]

Verander

"ActiveWorkbook.Save
door
Workbooks("MyBook.xls").Save
verander hier MyBook door de naam van uw bestand.

Dus in plaats van het actieve bestand wordt nu uw bestand opgeslagen.

Pierre

 

[sis123]

Verander

"ActiveWorkbook.Save
door
Workbooks("MyBook.xls").Save
verander hier MyBook door de naam van uw bestand.

Dus in plaats van het actieve bestand wordt nu uw bestand opgeslagen.

Pierre

Public when
Sub DoAutoSave()
Workbooks(test.xls).Save
when = DateAdd("n", 1, Now)
Application.OnTime when, "DoAutoSave"
End Sub

Als ik dit toepas krijg ik de error : er ontbreekt de foutopsporing