[VBA] kopietje saven on workbook_beforeclose - Softwareontwikkeling

dinsdag 4 juni 2002 09:12

Acties:

Tele romeo

Topicstarter

Hej,

Het lijkt simpel, ik wil een extra kopietje saven van een workbook op een andere locatie, dit moet gebeuren als het originele workbook gesaved wordt.

Nu stuit ik op allerlei problemen als ik hem gewoon wil stashen:
een save-loop omdat het copietje natuurlijk een save opdracht meekrijgt on workbook_beforesave.

Nu ben ik bezig met create backup maar dat loopt ook niet lekker: Het loopt wel goed als de backup in precies dezelfde dir staat maar bij een ander locatie gaat tie flippen, creeërt hij backup op backup of doet hij het niet.

Dit is de code die ik voor de backup gebruik:

*********************
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Range("F9").Select
ChDir "M:\doublesave"
ActiveWorkbook.SaveAs FileName:= _
"M:\doublesave\nummer.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=True

End Sub
***********************

Is er een guru in de house die mij op het juiste been kan zetten. I hope so.

Bedankt.

I could feel at the time There was no way of knowing Fallen leaves in the night Who can say where they're blowing As free as the wind And hopefully learning Why the sea on the tide Has no way of turning

dinsdag 4 juni 2002 09:58

Acties:

Verwijderd

wat dacht je van een 'gewone' filecopy ?

dinsdag 4 juni 2002 10:39

Acties:

Dinictus208

Tele romeo

Topicstarter

ehhm, ja.

Het is dus de bedoeling dat het automatisch gaat.

I could feel at the time There was no way of knowing Fallen leaves in the night Who can say where they're blowing As free as the wind And hopefully learning Why the sea on the tide Has no way of turning

dinsdag 4 juni 2002 10:41

Acties:

whoami

Op dinsdag 04 juni 2002 10:39 schreef Dinictus het volgende:

Het is dus de bedoeling dat het automatisch gaat.

Je kan VBA toch een FileCopy laten uitvoeren?

https://fgheysels.github.io/

dinsdag 4 juni 2002 10:52

Acties:

Dinictus208

Tele romeo

Topicstarter

Sorry ik begreep niet dat hij dat bedoelde.

Maar hoe omzeil ik dit dan:?

*************
Remarks:

If you try to use the FileCopy statement on a currently open file, an error occurs.
*************

Als ik deze functie dus on workbook_beforesave gebruik geeft hij een error.

I could feel at the time There was no way of knowing Fallen leaves in the night Who can say where they're blowing As free as the wind And hopefully learning Why the sea on the tide Has no way of turning

dinsdag 4 juni 2002 17:05

Acties:

NetForce1

(inspiratie == 0) -> true

Op dinsdag 04 juni 2002 10:52 schreef Dinictus het volgende:
Sorry ik begreep niet dat hij dat bedoelde.

Maar hoe omzeil ik dit dan:?

*************
Remarks:

If you try to use the FileCopy statement on a currently open file, an error occurs.
*************

Als ik deze functie dus on workbook_beforesave gebruik geeft hij een error.

Laat je hem een batch-file maken die zichzelf verwijderd.
Is misschien wel niet zo netjes, maar het werkt wel (hoop ik

)

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"