71
Excel / Exel opslaan als PDF in dezelfde map
« Laatste bericht door Wilbert Gepost op 03 maart 2025, 12:13:41 »Hallo,
Ik heb best al wat gezocht naar een oplossing maar kan eigenlijk niet gevonden krijgen wat ik wil.
Voor mij ook net te lang geleden dat ik macro's heb gemaakt dus moet er ook echt even induiken.
Hieronder een bestaande macro van mij maar wil deze wat eenvoudiger omdat ik nu nog naar de goed map moet klikken.
Ik zou graag met druk op de knop dezelfde map willen zien als waar ik het exel bestand al in geopend heb (daar kom ik nu niet in uit)
Ik wil nog wel op de knop "opslaan" willen drukken ter controle.
Is het ook mogelijk dat de nieuwe bestandsnaam dan al zichtbaar is voordat ik op opslaan druk?
Alvast bedankt voor jullie reactie
Ik heb best al wat gezocht naar een oplossing maar kan eigenlijk niet gevonden krijgen wat ik wil.
Voor mij ook net te lang geleden dat ik macro's heb gemaakt dus moet er ook echt even induiken.
Hieronder een bestaande macro van mij maar wil deze wat eenvoudiger omdat ik nu nog naar de goed map moet klikken.
Ik zou graag met druk op de knop dezelfde map willen zien als waar ik het exel bestand al in geopend heb (daar kom ik nu niet in uit)
Ik wil nog wel op de knop "opslaan" willen drukken ter controle.
Is het ook mogelijk dat de nieuwe bestandsnaam dan al zichtbaar is voordat ik op opslaan druk?
Code: [Selecteer]
Sub opslaanpdf()
Application.ScreenUpdating = False
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder
If .Show <> -1 Then GoTo CancelFolderSelection
sFolderPathForSave = .SelectedItems(1)
End With
Set dlgSaveFolder = Nothing
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("D30").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
CancelFolderSelection:
Application.ScreenUpdating = True
End Sub
Alvast bedankt voor jullie reactie