Hallo Forum,
bin gerade dabei PDF Dateien mit PDFTK zusammen zu führen. Leider nur mit einem Teilerfolg. Hat mir jemand eine Idee was hier nicht stimmt.

Grüße
Gruibe

Private Sub CommandButton5_Click()
'PDF zusammenführen in Gesamt.pdf im Kunden Verzeichnis

'Kundenname von Tabelle "Deckblatt" auslesen
kd = Worksheets("0_deckblatt").Range("D4").Value


'Kunden- und Archivverzeichnis prüfen und anlegen

Dim Path As String
Dim Path_archiv As String
Dim Folder As String
Dim Folder_archiv As String
Dim Answer As VbMsgBoxResult
Dim Answer_archiv As VbMsgBoxResult
Dim File As String
Dim File_archiv As String
Dim PN As String
Dim PN_archiv As String
Dim FileName As String

'Archivpfad festlegen
Path_archiv = Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\archiv\"

kd_path = Environ("userprofile") & "\Nextcloud\Betriebe\" & kd
kd_path_date = Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\" & Date & "_Gesamt.pdf"

'PDF Pfade festlegen
Const PDF_KD_PATH As String = "kd_path" & "\*.pdf"
Const PDF_PATH As String = "kd_path_date"


'PDF_KD_PATH = Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\*.pdf"
'PDF_PATH = Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\" & Date & "_Gesamt.pdf"

If Dir(kd_path, vbDirectory) = "" Then
MkDir (kd_path)
End If

File = Dir(Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\_Gesamt.pdf")
File = Dir(Environ("userprofile") & "\Nextcloud\Betriebe\" & kd & "\*.pdf")

If File > "" Then

'****FUNKTIONIERT *****
'Call SHELL(PathName:="C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & _
' Environ("userprofile") & """\Nextcloud\Betriebe\" & kd & "\*.pdf"" cat output ""C:\Users\jkh\Nextcloud\betriebe\Hans Märkl" & "\" & "Gesamt.pdf""", WindowStyle:=vbHide)

'****FUNKTIONIERT NICHT*****
Call SHELL(PathName:="C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & _
Environ("userprofile") & """\Nextcloud\Betriebe\" & kd & "\*.pdf""" & "cat output" & kd_path_date, WindowStyle:=vbHide)