Open file explorer then open pdf via command button.

[erutherford]

Search for an hour. I didn't think it would be that hard but guess what! The last line is the problem or at least I think it is.

Private Sub CommandButton9_Click() 'Print "Read me first pdf"

Dim sFile As String
Open_file = Application.GetOpenFilename(Title:="Browse & Select File", FileFilter:="All PDF Files (*.pdf*), *.pdf*")
PDF.Open sFile, vbNormalFocus

End Sub

 

[John_w]

Try this:

Private Sub CommandButton9_Click()

    Dim file As Variant
    Dim Sh As Object
    
    file = Application.GetOpenFilename(Title:="Browse & Select File", FileFilter:="All PDF Files (*.pdf*), *.pdf*")

    If file <> False Then
        Set Sh = CreateObject("Shell.Application")
        Sh.ShellExecute file, "", "", "open", 1
    End If

End Sub

 

[erutherford]

Most excellent JW! Oh so close but yet so far!

 

[NdNoviceHlp]

Hi ertherford. You can trial this. HTH. Dave

Private Sub CommandButton1_Click()
Dim sFile As String, myShell As Object
Set myShell = CreateObject("WScript.Shell")
sFile = Application.GetOpenFilename(Title:="Browse & Select File", FileFilter:="All PDF Files (*.pdf*), *.pdf*")
myShell.Run sFile, vbNormalFocus
End Sub

edit: I see John's already got it right.

 

[Micron]

I searched for 10 minutes.
ActiveWorkbook.FollowHyperlink Open_File

For pdf's , not necessarily other file types.
EDIT - forgot to mention that I much prefer msoFileDialogs for this.