Sluiten v/e 2de doc via VBA

[h.van.bouwel]

Volgende macro werkt naar behoren. Je krijgt een promptje, je kan de nieuwe naam ingegeven, het document word opgeslagen, maar ik zou graag het document met de nieuwe naam sluiten.


Sub openenclose()
Dim strNieuweNaam As String
Dim strPrompt As String
Dim strTitel As String

strPrompt = "Geef de nieuwe bestandsnaam in"
strTitel = "Huidige bestand opslaan als:"
strNieuweNaam = InputBox(strPrompt, strTitel)

ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\test\My Documents\" & strNieuweNaam & ".xls"
Workbooks.Open FileName:= _
"C:\Documents and Settings\test\My Documents\Macro.xls"

'Sluiten van de nieuwe file
end sub

Hoe moet ik dat dan doen?

Alvast bedankt voor de hulp

 

[jzeedijk]

Hoi van Bouwel,

Zel de code niet in een macro, maar in de editor van "This workbook" van VBA.

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

Programmacode

End Sub

Dan wordt de programmacode gestart zodra het werkboek afgesloten wordt.

Jeroen

 

[h.van.bouwel]

Werkt wel, maar niet de bedoeling

Bedankt voor de tip, maar dit is niet bedoeling. Iedere keer als je het werkboek sluit, loopt de routine.

Ik wil het gebruiken voor het volgende. Ik heb een file opgesteld met een trainingsschema voor 10 weken. Het oorspronkelijke document gebruik je als je werkdocument. Om iedere dag de gegevens van je training invullen. Als de 10 weken voorbij zijn, kan je je gewerkte schema "archieveren" en begin je in je werkdocument opnieuw.

Daarvoor was voorzien "Opslaan als ....", het werkdocument openen en het "gearchieveerde document sluiten zodat je direct aan de volgende 10 weken kan beginnen.

Heeft er iemand een idee hoe het dan op te lossen is?
Alvast bedankt.