probleem bij backup maken

[spokkem]

hallo

ik heb dit stukje gevonden in dit forum.
het werkt goed als ik op de c: schijf werk, maar als ik naar de server toe ga saved hij wel het originele progje maar maakt daar geen backup dit doet hij op de harde schijf in de computer.

moet ik hier nog wat aan toevoegen ???

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim MyDate, MyFile, MyPath

On Error GoTo verder:
MkDir "Appelboek Backup"
verder:

MyPath = "Appelboek Backup"
MyDate = Format(Date, "dddd dd mmmm yyyy ")
MyFile = MyPath + "\" + "Appelboek Backup" + MyDate + ".xls"

ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub

vr gr spokkem

 

[leofact]

Je kunt of MyPath helemaal naar de de juiste locatie laten wijzen:
b.v.
I:\netwerk\bestanden\Appelboek Backup\

Of je kunt met

ActiveWorkbook.Path

de juiste locatie van je (opgeslagen) document opvragen en daar mee verder werken.
Zie de helpfunctie

Verder de tip om format(date) aan te passen
Je krijgt zo heel erg lange bestandsnamen
Als je "yyyy mm dd" geebruikt kun je bestanden mooi van oud naar nieuw sorteren.
Maar goed, het je doet natuurlijk wat jij wil

mvg leo

 

[spokkem]

hoi Leo

bedankt voor het advies om de naam in te korten werkt beter

ik heb de code toegepast hij werkt dit is het geworden
zou je even kunnen kijken of dit vba verantwoord is.
ik ben nog maar een beginner met vba

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim MyDate, MyFile, MyPath

On Error GoTo verder:
MkDir ActiveWorkbook.Path + "Backup"
verder:

MyPath = ActiveWorkbook.Path + "Backup"
MyDate = Format(Date, "dd mm yyyy")
MyFile = ActiveWorkbook.Path + "Backup" + "\" + MyDate + ".xls"

ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub

vr gr spokkem

 

[leofact]

Lijkt me goed te werken.

Alleen even over het declareren van de variabelen
Deze kun je beter een type meegeven.

Dim sMyFyle as string.

Met de s geef je dan aan dat het een string variabele is.
Makkelijk als je veel code en variabelen hebt.
Verdere info (engels)

mvg leo

 

[spokkem]

Hoi Leo

bedankt voor je hulp ga ik toepassen.

vr gr spokkem :thumb::thumb: