PDF overschrijven vanuit Excel

[Bart1980991]

Goedendag,

Ik gebruik onderstaande code om snel een formulier om te zetten naar een PDF.
Wat kan ik aan de code veranderen om te zorgen dat het formulier niet op de schrijf wordt gezet (of naar een tijdelijke locatie) zodat de gebruiker moet kiezen hoe en waar de PDF moet worden opgeslagen.

Mocht dat lastig zijn dan graag: hoe kan ik er voor zorgen dat het formulier overschreven wordt ipv de melding '.pdf bestaat reeds'?

Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("A1").Value
If Dir("K:\Verslagen\MT-Staf\2019\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="K:\Verslagen\MT-Staf\2019\" & FacName & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    From:=1, To:=2, OpenAfterPublish:=True
End If
End Sub

Alvast bedankt voor het meedenken.

Bart

 

[VenA]

Niet controleren of het bestand al bestaat en met

Application.DisplayAlerts = False

een eventuele melding onderdrukken?

 

[Bart1980991]

Bedankt voor je reactie

Ik heb nu dit:

Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("A1").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="K:\Verslagen\MT-Staf\2019\" & FacName & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    From:=1, To:=2, OpenAfterPublish:=True
Exit Sub
End Sub

Dat werkt, hij overschrijft nu het oude document.
Is het ook nog mogelijk dat de gebruiker gedwongen wordt om de PDF ergens op te slaan? Dus niet in de map waar ook de excel staat zoals nu gebeurd?

 

[VenA]

Dat dwing je hier toch al af?

"K:\Verslagen\MT-Staf\2019\

 

[Bart1980991]

Nee, nu wordt het op die locatie opgeslagen.
Eigenlijk wil dat de PDF zich opent en dat de gebruiker deze ergens anders opslaat.
(niet elke gebruiker kan bij deze map namelijk)

 

[Bart1980991]

Wat kan ik aan de code veranderen dat ook een 2de tabblad wordt geprint als 2de pagina in de PDF?

 

[HSV]

Verberg de bladen die niet als PDF moeten worden gemaakt en maak er dit van..

thisworkbook.ExportAsFixedFormat

Daarna maak je de bladen weer zichtbaar.

 

[Gert Bouwmeeste]

Nee, nu wordt het op die locatie opgeslagen.
Eigenlijk wil dat de PDF zich opent en dat de gebruiker deze ergens anders opslaat.
(niet elke gebruiker kan bij deze map namelijk)

Om een outputmap te laten kiezen kun je dit gebruiken ..

Sub KiesOutputMap()

Dim sFolder As String
    
    ' Open de dialoogbox om de outputmap te kiezen ...

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Kies een map voor de output .."
        .ButtonName = "Selecteer .."

            ' Eventueel kun je een "start-map" meegeven
            .InitialFileName = "C:\Users\GertB\Data"

        If .Show = -1 Then ' Als OK is ingedrukt dan ...
            sFolder = .SelectedItems(1) & "\"
        End If

    End With
    
End Sub

 

[Bart1980991]

Het was even puzzelen maar beide opties werken, voor opslaan en beide pagina’s als Pdf
Bedankt allen!