Reserve copy

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

Ik heb een bestand (wb1) waar ik wijzigingen in aanbreng.
wb11 is mijn reserve copy op het Usb-stickje F
Nu wil ik deze reserve copy overschrijven met wb1

Op onderstaande manier gaat het niet
Hoe moet ik wel doen?


Code: 
wb1 = "C:\Users\Public\Documents\Kasblad Alkmaar.xls"
 wb11 = "F:\Kasblad Alkmaar.xls"
 wb11 = wb1

Vriendelijke groet , Jaap
 
Als je wb11 open hebt staan én de macro wordt geactiveerd vanuit wb11 kan het zo:

Code: 
Sub jvr()
wb1 = "C:\Users\Public\Documents\Kasblad Alkmaar.xlsm"
ThisWorkbook.SaveAs wb1
End Sub
 
JVeer,
bedankt voor uw reactie
Nee beide bestanden staan niet open
Het gaat in zijn totaliteit om 5 bestanden waarvan een reserve copy word bijgehouden
de macro staat in een speciaal bestand
 
Hieronder de methode

Code: 
Sub jvr2()
wb1 = "C:\Users\Public\Documents\Kasblad Alkmaar.xls"
wb11 = "F:\Kasblad Alkmaar.xls"
CreateObject("scripting.filesystemobject").MoveFile wb11, wb1
End Sub
 
Laatst bewerkt:
Of:
Code: 
ActiveWorkbook.SaveCopyAs "F:\" & ActiveWorkbook.Name
ActiveWorkbook.Save
 
Laatst bewerkt:
JVeer ,

Deze manier was wel wel de manier zoals ik bedoelde

De code geeft echter Fout 53 , kan bestand niet vinden
terwijl de adressen gewoon goed zijn
Is dit nog op te lossen

Edmoor,
Dat werkt ook
De oplossing welke ik zoek is echter dat de bestanden NIET geopend staan

Vriendelijke groet , Jaap
 
In VBA:

Code: 
Sub M_snb()
 Name  "C:\Users\Public\Documents\Kasblad Alkmaar.xls" As "F:\Kasblad Alkmaar.xls"
End Sub
 
Snb,
Krijg nu een foutmelding dat het bestand al bestaat
Dacht dit te kunnen oplossen met voorafgaand onderstaande code te plaatsen
maar krijg toch dezelfde foutmelding
hoe moet ik het wel oplossen


Code: 
Application.DisplayAlerts = False
 
Probeer dit eens:
Code: 
Sub M_snb()
 If Dir("F:\Kasblad Alkmaar.xls") <> "" Then Kill "F:\Kasblad Alkmaar.xls"
 Name "C:\Users\Public\Documents\Kasblad Alkmaar.xls" As "F:\Kasblad Alkmaar.xls"
End Sub
 
Dankjewel iedereen
Het werkt!
Weer een probleem door jullie inzet opgelost.
Vriendelijke groet , Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan