SaveCopyAs

[verluc]

Wat is verkeerd aan deze code.
Het bestand Dubbel.xls word niet aangemaakt bij sluiten van het bestand:

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs "C:\Users\Luc\Documents\Dubbel.xls" & _
                          Format(Now, "ddmmyyyy") & "_" & _
                          Application.UserName & "_" & _
                          ActiveWorkbook.Name
End Sub

Dank voor nazicht.

 

[Cobbe]

De extensie .xls dient achteraan toegevoegd te worden, denk ik zo:

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs "C:\Users\Luc\Documents\Dubbel" & _
                          Format(Now, "ddmmyyyy") & "_" & _
                          Application.UserName & "_" & _
                          ActiveWorkbook.Name & ".xls"
End Sub

 

[verluc]

Werkt perfect.
Enkel wanneer ik dit bestand open vanaf deze copie, krijg ik een gele band over:

"C:\Users\Luc\Documents\Dubbel.xls" & _

Het zou aangewezen zijn om ook dit bestand (copie) te kunnen openen, mocht er met het
originele bestand iets fout gaan.
Is dit mogelijk ?

 

[verluc]

Sorry, Cobbe, ik bedoel wegschrijven in plaats van openen !

 

[Cobbe]

"C:\Users\Luc\Documents\Dubbel.xls" & _

Nu zet je nog steeds de extensie op de verkeerde plaats. Achteraan betekent helemaal rechts van de naamgeving.

 

[verluc]

Cobbe, zoals gemeld, code werkt perfect, alleen als ik open en wegschrijf vanaf deze copie komt de melding :

"Kan geen toegang krijgen tot Dubbel.xls"

 

[Cobbe]

Als je je bestand opslaat als ""C:\Users\Luc\Documents\Dubbel" & Format(Now, "ddmmyyyy") & "_" & Application.UserName & "_" & ActiveWorkbook.Name & ".xls" " kan je dit bestand niet aanroepen met : open : Dubbel.xls

Dus ofwel heb je een basisbestand met de naam Dubbel.xls of wel heb je een copy van dit bestand maar dan met de lange naam zoals aangegeven.

 

[verluc]

Als ik het dus goed begrijp, kan ik de copie wel openen en wijzigen maar blijkbaar niet wegschrijven?

 

[Cobbe]

Uw probleem onder ogen zien is het begin van de genezing.
Maar uw probleem uitleggen aan de hulpverlener is zeker even belangrijk.

Wat wil je nu eigenlijk?
Je hebt een bestand Dubbel.xls, je opent dit bestand, voert enkele wijzigingen door en slaat dit bestand op als copie met de lange naam.
Dan heb je 2 bestanden:
1° Dubbel.xls
2° Dubbel_datum_uur_en_nog_vanalles.xls

Nog vragen?

 

[verluc]

Heb intussen mijn code vereenvoudigd naar :

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs "C:\Users\Luc\Documents\Dubbel.xls"
End Sub

Stel ik heb een probleem met het originele bestand en wil dus verder werken met het Dubbel.xls bestand.
Dit gaat : openen , wijzigen maar kan niet wegschrijven;
Geeft foutmelding :"Kan geen toegang krijgen tot Dubbel.xls"

 

[abevleeming]

Volgens mij komt dat omdat je het bestand "dubbel.xls" al open hebt. Dan kan je het simpelweg niet vervangen. Je moet dubbel.xls dus een unieke waarde meegeven om deze op de juiste manier op te kunnen slaan, of in een aparte map opslaan

 

[verluc]

Bedankt allen ! Kan met deze suggesties verder werken en laat oplossing weten wanneer ik de gepaste code hieromtrent heb samengesteld !