Automatisch opslaan met Macro's

[Mcjack]

Beste Forum,

Ik wil graag om de 5 minuten mijn Excel bestand opslaan. Ik ben er bijna. Ik heb de volgende code:

Sub SaveThis()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "D:\Kopie.xlsx", FileFormat:=51
Application.DisplayAlerts = True

Application.OnTime Now + TimeValue("00:05:00"), "SaveThis"
End Sub

Nu slaat het bestand zich om de 5 minuten op, maar na het opslaan gaat Excel verder in het kopie bestand. Ik wil dus dat het opslaan op de achtergrond gebeurt zodat ik verder kan blijven gaan in het origineel.
Er moeten dus enkele code regels bij. Maar de vraag is: welke regels mis ik nog?

EDIT: ik werk in xlsm en wil dus dat het bestand als xlsx wordt opgeslagen. Iedere keer (om elke 5 minuten) moet het xlsx bestand dus overschreven worden

 

[Cobbe]

Gebruik deze eens:

Thisworkbook.SaveCopyAs

 

[Mcjack]

Beste Cobbe,

SaveCopyAs is volgens Excel geen geldig argument

Edit: SaveAs doet precies het zelfde als wat ik nu heb: namelijk opslaan als xslx en dan naar het nieuwe bestand gaan