Kopie opslaan op andere locatie

[vincent]

Beste Excellers,

Ik wil een Excel bestand bij afsluiten automatisch een kopie laten
opslaan op een andere locatie. Hoe krijg ik dat voor elkaar via een
macro?
Het bestand moet dus zowel op de originele en 2de locatie worden
opgeslagen.

mvg,
Vincent

[jan]

Vincent,

Dat zou met deze gebeurtenis kunnen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim strExtra As String
strExtra = "D:\Data\Flash_001.xls"
If Me.FullName <> strExtra Then
Me.SaveCopyAs strExtra
End If
End Sub

Overigens is dit niet bij afsluiten maar als het bestand wordt opgeslagen
wordt dit ook op de plek in strExtra opgeslagen.

Jan

[berre51]

Heb je ervaring met VBA in excel? Je kan een macro opnemen en daarin
alles laten registreren wat moet gebeuren door alle handelingen uit te
voeren. Via de menubalk onder Extra vind je "macro opnemen" en "VBA
editor". De naam van de macro zal waarschijnlijk "macro1" zijn. Je kan
deze laten uitvoeren via de Alt-toets en de functietoets F8. Wil je
dat automatisch laten gebeuren voor het afsluiten van het bestand,
moet je wat programmeren via de VBA-editor. Dit uitleggen hoe het
moet, is niet zo gemakkelijk. Stuur mij een voorbeeldbestand via
berre_51athotmaildotcom (bewust voluit geschreven want emailadressen
worden niet helemaal weergegeven in dit forum) en ik stuur u het
bewerkte bestand met begeleidende uitleg door.

mvg,
berre_51

[MvW]

Plaars deze macro in ThisWorkbook
Pas de mapnamen en het pad aan

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

On Error Resume Next
Workbooks("BackUp maken.xls").SaveCopyAs Filename:="G:\Test\BackUp.xls"
If Err Then MsgBox "Er kan geen kopie gemaakt worden"
End Sub

"vincent" schreef:

> .
>

[vincent]

Hallo Jan,

Ik denk dat dit wel gaat werken, alleen krijg ik nu een foutmelding
zodra ik afsluit en wil opslaan. Volgens mij kan ik het bestand niet
overschrijven oftewel opslaan onder dezelfde naam. De foutmelding
meldt: "controleer of de bestandsnaam niet een van de volgende tekens
bevat: / \ [ ] ? bestandsnaam.xls"
Oftewel blijkbaar wordt de oorspronkelijke bestandsnaam niet
geaccepteerd. Als ik het onder een andere naam wil laten opslaan dan
gaat het echter ook niet.
Heb je nog een idee?

Mvg,
Vincent

[vincent]

> > .- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

MvW, dat is 'm!
Bedankt!