Filesearch vervangen voor Dir()

[AvC]

Harry,

ik heb geen idee wat je met #16 bedoelt. Wat is dat?

 

[HSV]

Post 16; we zitten nu op 22.

 

[AvC]

Ja hoor, die code heb ik weggehaald.

 

[Warme bakkertje]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub PDF_Open()

    StrFile = "D:\Mijn Documenten\ PDF-files\" & ActiveCell.Value & ".pdf"
    
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = StrFile
        .Filters.Add "Adobe PDF-Bestanden (.pdf)", "*.pdf", 3
        .FilterIndex = 3
        If .SelectedItems.Count = 1 And .Show = -1 Then
            ShellExecute 0, "Open", .SelectedItems(1), "", "", vbMaximizedFocus
        End If
    End With

End Sub

 

[AvC]

Bedankt voor jullie hulp.
Het probleem is opgelost door gebruik te maken van de oude filesearch functie uit 2007.