Type mismatch (error 13)

[rdebacke]

Hi,

I did copy every files in my project, and I get "Type mismatch (error 13)" when running the code.

The code I run is the sample presented here (with the simple .pdf file, generated with Microsoft Print to PDF, on my desktop):

Dim pdf As pdfDocument
Set pdf = pdfDocument.pdfDocument()
If pdf.OpenPdf("C:\path\to\input.pdf") Then
    Debug.Print "Title: " & pdf.Title
    Debug.Print "Pages: " & pdf.PageCount
    pdf.Title = "My Modified PDF"
    pdf.SavePdfAs "C:\path\to\output.pdf"
End If

Do you have any idea what could be wrong ?

Romain