Opgelost Geopend XLSX-bestand als .PDF opslaan in dezelfde map als het geopende XLSX-bestand

[AppdB]

Kan iemand mij helpen aan een VBA-script dat:
- een geopend Excel-bestand (.xlsx)
- als PDF-bestand opslaat
- met dezelfde bestandsnaam als het (geopende) 'bron' .xlsx-bestand
- in dezelfde map als het (geopende) 'bron' .xlsx-bestand

Alvast heel erg bedankt voor de werkende reactie.

 

[SjonR]

Een heel bestand of een enkel tabblad?

Dit zou kunnen werken voor het actieve tabblad;

Sub SjonR()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[AppdB]

Het gaat om het hele bestand.

 

[SjonR]

dan zo?

Sub SjonR()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[AppdB]

Super SjonR,

Het werkt als een malle! Bedankt voor jouw snelle service. Hier ben ik echt mee geholpen.

Hartelijke groet,
AppdB

 

[SjonR]

Mooi! Fijne avond nog.

 

[AppdB]

Ingelijks!