macro om werkboek opslaan en sluiten

[HenkBakker]

Ik ben vaak bezig met meerdere werkboeken tegelijk.

Ik heb nu een macro:

Private Sub CommandButton1_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\hba018\Dropbox\02 LaVaCo Logistics\05 facturen\uitgaand\01 SEA\SEA-010\facturen\" & Sheets("offerte").Range("j4").Value & ".pdf"
    ActiveSheet.PrintOut
    ActiveWindow.Close Savechanges:=True
End Sub

Deze zorgt ervoor, dat het huidige werkblad wordt opgeslagen als pdf, geprint wordt, en daarna wordt opgeslagen en gesloten.
Dat gaat goed.

Maar, als ik nog één of meer werkboeken geopend heb, worden deze ook gesloten. Dat is niet de bedoeling!
Het is de bedoeling, dat alleen de werkmap (waar een pdf van wordt gemaakt) wordt afgesloten. De overige moeten open blijven.

Wie kan mij helpen?

 

[HSV]

thisworkbook.close true

 

[HenkBakker]

@hsv

Dank voor de hulp!

Het lijkt te werken.
Maar...

De andere werkboeken worden ook gesloten, maar openen daarna weer.
Op zich geen probleem, maar ze zijn intussen niet opgeslagen. Er kunnen dus gegevens verloren zijn gegaan.

 

[HSV]

De andere werkboeken sluiten niet ter vervanging van:

 ActiveWindow.Close Savechanges:=True

 

[HenkBakker]

@hsv

klopt, dat gebeurde daarvoor ook al
sorry, dat ik dat niet had vermeld

 

[HSV]

Dit zal alleen het werkboek sluiten waarin de code staat.

Private Sub CommandButton1_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\hba018\Dropbox\02 LaVaCo Logistics\05 facturen\uitgaand\01 SEA\SEA-010\facturen\" & Sheets("offerte").Range("j4").Value & ".pdf"
    ActiveSheet.PrintOut
    thisworkbbok.Close True
End Sub

 

[HSV]

Nog niet mee klaar?

 

[HenkBakker]

Het is grotendeels gelukt.

Soms sluiten nog steeds alle bestanden, maar dat neem ik op de koop toe.
Nóg vaker opslaan, dus.