2x opslaan

[Atwist]

Hallo forumleden,

Is het mogelijk om een bestand op 2 locaties tegelijk op te slaan doormiddel van de opslaan knop van Excel.
Bijvoorbeeld c:/test en z:/archief

Zoja hoe doe ik dit.

 

[Zoefff]

Open bestand en kies nu opslaan als.
Voer de gewenste 2de locatie in.

Je hebt het zelfde bestand nu 2 x op de gewenste locaties.


Of bestand kopieren naar de andere gewenste locatie.
Selecteer het bestand en wijzig de bestandsnaam.

 

[HSV]

Ligt ook aan de naam van je actieve werkboek natuurlijk, en waar die al staat.
Anders kan één van de twee vervallen.

De codes worden uiteraard ook meegenomen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 With ThisWorkbook
 .SaveCopyAs "C:\test.xls"
 .SaveCopyAs "Z:\archief.xls"
 End With
End Sub

 

[Atwist]

HVS,

Deze code werkt helemaal perfect.
Ik snapte de code eerst niet maar ben er uit.

Mijn dank is groot

 

[Atwist]

Toch niet perfect

Als ik de sheet in de map archief open en weer afsluit dan loopt de vba code vast.
Deze kan het bestand niet opslaan om dat deze nog open staat.

Is dit op te lossen???????

 

[HSV]

Je vraag begrijp ik niet helemaal.

Je opent het bestand in de map 'archief' en sluit het weer.
Dit heeft niets met het opslaan van doen.

 

[Atwist]

HSV,

Ik boedoel als ik een teken wijzig zodat het bestand moet worden opgeslagen. (dit bedoel ik met open en weer afsluiten)

 

[HSV]

Even voor de duidelijkheid.

Je hebt een bestand waar je in werkt, en maakt daar nog eens twee kopiën van?
Dan open je zo’n bestand en gaat daar iets in wijzigen?

Of je werkt in één van de twee bestanden en slaat het op?
Dan kan één van de twee 'SaveAsCopy' vervallen.

 

[Atwist]

Ja stom als ik 1 regel verwijder moet het wel werken.

En het werkt nu wel goed

Mijn dank dat je mij weer op het goede spoor hebt gezet.