Find and print document based on cell reference

[Ben171]

Hi,

Say I have a name of a PDF file stored in Cell A1 of a sheet called "Database". e.g. 12345.pdf

Lets say this PDF is stored in the location C:/TestPDF/

I would like to create a macro, to search in the directory C:/TestPDF/ to find the pdf name located in cell A1 of the sheet "Database", and then to print this PDF.

Any help would be greatly appreciated!

 

[Ben171]

Bump,

How do i search a specific folder location through code "C:/TestPDF/, then to find the correct PDF based on the text in a cell? e.g. the cell may contain Version1, so it checks this file location for Version1.pdf

 

[severynm]

Hi,

Give the following a try. It makes use of the Dir functinon, which among other things can determine if a file exists or not by looking at its output.

    Dim filePath As String
    filePath = "C:/Temp/" & Me.Range("A1").Value & ".txt"
    If Dir(filePath, vbDirectory) <> vbNullString Then
        MsgBox "File " & filePath & " exists"
        ActiveWorkbook.FollowHyperlink filePath 'Opens the file, from this answer https://stackoverflow.com/a/19185602
    Else
        MsgBox "File " & filePath & "  does not exist"
    End If

If you want to open the file, then you could just do something along the lines of this little work around, but if you wanted to print as well, you'll likely have to invoke some shell commands in VBA - looking around after a quick google search there's a few answers on this already.