bevestiging pdf is opgeslagen

[boppe]

In zou graag in een bepaalde veld (T20) willen zien of het opslaan in (PDF) is gelukt.
Maar gaat met het onderstaande code onderaan niet lukken...
Dat kan vast veel eenvoudiger.

Dim sh As Worksheet
 Set sh = ThisWorkbook.Worksheets("Blad1")
 Dim C00 As String
 Dim Filename As String
 Dim TempFilePath As String
 
  C00 = "C:\Formulieren\"
    
      Filename = C00 & "GCM__" & Format(Now, "yyyy-mm-dd_") & sh.Range("C2").Value & "_snr_" & sh.Range("C4").Value & ".pdf"


**KNIPPERDEKNIP**
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename
       
    If Not Dir(Filename) = Emty Then
    sh.Range("T20").Value "Bestand is opgeslagen"
    Else
    sh.Range("T20").Value ""
    End If
    
 
End Sub

 

[edmoor]

Zo zou het moeten lukken:

Sub PDF()
    Dim C00 As String
    Dim Filename As String
    Dim TempFilePath As String
    
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Blad1")
    C00 = "C:\Formulieren\"
    
    Filename = C00 & "GCM__" & Format(Now, "yyyy-mm-dd_") & sh.Range("C2").Value & "_snr_" & sh.Range("C4").Value & ".pdf"

[COLOR="#008000"]'**KNIPPERDEKNIP**[/COLOR]

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename
       
    If Dir(Filename) <> "" Then
        sh.Range("T20").Value = "Bestand is opgeslagen"
    Else
        sh.Range("T20").Value = ""
    End If
End Sub

 

[AD1957]

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename
       
    If Not Dir(Filename) = Emty Then
    sh.Range("T20").Value [B][COLOR="#FF0000"]=[/COLOR][/B] "Bestand is opgeslagen"
    Else
    sh.Range("T20").Value[B][COLOR="#FF0000"] =[/COLOR][/B] ""
    End If

edmoor was rapper.

 

[boppe]

dank u beleefd

 

[HSV]

Wen je aan om codes te schrijven zonder hoofdletters.

Dan had je deze fout direct kunnen ontdekken (wat sowieso al een foutmelding geeft als het niet gedefinieerd is als variabele).

If Not Dir(Filename) = [COLOR=#ff0000]Emty[/COLOR] Then

Gebruik ook geen variabele namen die al vergeven zijn in Excel VBA zoals "Filename".

 

[OctaFish]

Je kan natuurlijk best met Emty werken; perfecte naam voor een variabele want geen systeemnaam

Const Emty As String = """"
    If Not Dir(Filename) = Emty Then

 

[edmoor]

Of:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename
sh.Range("T20").Value = IIf(Dir(Filename) <> "", "Bestand is opgeslagen", "")