Save, overwrite or cancel excelSheet to PDF with msgBox

[Roadrocker66]

Goedendag.

Ik wil graag een excelSheet opslaan, overschrijven of annuleren als Pdf file.
Alles gaat zo als het hoort zonder de de messagebox keuze opslaan, overschrijven of annuleren.
Als ik de functie wel wil gebruiken krijg ik bij Senario2 een foutmelding.

Kan iemand mij laten weten waarom de code niet werkt?

BvHD.

Sub Create_PDF_File()
'
' Create_PDF Macro
' Pdf Area in Preview Mode
'
' Sneltoets: Ctrl+Shift+F

Dim PdfNo As Long
Dim Dt As Date
Dim Amt As Currency
Dim PdfPath As String
Dim FName As String
Dim Nrow As Range

PdfNo = Range("K2")
Dt = Range("B2")
Amt = Range("I12")
PdfPath = "C:\Users\Jeen\Documenten\Persoonlijke_Documenten\Financien\"
FName = Range("J2") & "_" & PdfNo

If FName = "" Then
    'Senerio 1 Duplicate File doesn't exist
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=PdfPath & FName

Else
    mbox = MsgBox("Dit File bestaal al.  Wilt u de file overschrijven?", vbYesNoCancel)
    If mbox = vbYes Then
        'Senerio 2 Overwrite the File - Without warnings
        Application.DisplayAlerts = False
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=PdfPath & FName
        Application.DisplayAlerts = True
    ElseIf mbox = vbNo Then
        'Senerio 3 Do Nothing
    Else
        'Senerio 4 Cancel on the Message box exits sub
        Exit Sub
    End If
    
End If

Set Nrow = Blad2.Range("a1048576").End(xlUp).Offset(1, 0)
Nrow = PdfNo
Nrow.Offset(0, 1) = Dt
Nrow.Offset(0, 2) = Amt
Blad2.Hyperlinks.Add anchor:=Nrow.Offset(0, 3), Address:=PdfPath & FName & ".pdf"

End Sub

 

[edmoor]

En wat is op dat moment de waarde van PdfPath & FName?

 

[Roadrocker66]

En wat is op dat moment de waarde van PdfPath & FName?

Goedendag.
Ik begrijp u even niet!
Hoezo de waarde op dat moment?
mvg.

 

[edmoor]

De vraag is wat er in die variabelen staat op het moment dat je die foutmelding krijgt.
En dan gaat het met name om de waarde van de variabele FName.

 

[Roadrocker66]

De vraag is wat er in die variabelen staat op het moment dat je die foutmelding krijgt.
En dan gaat het met name om de waarde van de variabele FName.

Goedendag.
Als u bedoeld wat er komt te staan als ik er met mijn muis op ga staan klopt de File naam Berekening_2208

 

[edmoor]

En wat gebeurt er als je die PDF wilt opslaan met DisplayAlerts op True?
Staat het bestaande bestand misschien op Alleen lezen?

 

[Roadrocker66]

En wat gebeurt er als je die PDF wilt opslaan met DisplayAlerts op True?
Staat het bestaande bestand misschien op Alleen lezen?

Als ik de functie "On Error Resume Next" gebruik krijg ik het volgende in mijn database:

PdfNo Date Amount Path
0 12:00:00 AM €0,00 C:\Users\Jeen\Documenten\Persoonlijke_Documenten\Financien\_0.pdf
Snap er niets van!

 

[edmoor]

En FName is altijd gevuld, die controle heeft dus geen zin.
Wellicht dat je dit bedoelt:

If Dir(PdfPath & FName & ".pdf") = ""

 

[AccessGuru]

@roadrocker: kun je alsjeblieft stoppen met dat overbodige quoten?

 

[Roadrocker66]

En FName is altijd gevuld, die controle heeft dus geen zin.
Wellicht dat je dit bedoelt:

If Dir(PdfPath & FName & ".pdf") = ""

Helaas
De foutmelding blijft bestaan.
Toch bedankt.
mvg. Jeen

 

[edmoor]

En mijn vraag in #6?
Wellicht dat je dan je document eens hier kan plaatsen.