Ouvrir pdf avec excel

[MASSJIPE]

Bonjour à tous
J'ai un suivi fait avec excel tous les documents sont enregistre au format pdf avec PDF creator
Est il possible à partir du fichier suivi à l'aide d'un bouton appeller une fenetre ecrire le N° du PDF et l'ouvrir ( AB 1)
Merci

[MASSJIPE]

Ci joint un fichier

[MASSJIPE]

Bonjour
Une petite idée
merci

[kiki29]

Salut,voir aide en ligne sur Application.FileDialog(msoFileDialogFilePicker)
puis chercher via Gog infos sur ShellExecute Open

[MASSJIPE]

Bonjour
Ca reste du chinois pour moi
merci quand même

[kiki29]

re,

Public 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

Option Explicit

Sub btnOpen_QuandClic()
Dim Ret As Long, hwnd As Long
Dim sChemin As String

    sChemin = ThisWorkbook.Path
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = sChemin & "\"
        .Title = ""
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Sélection Fichier"
        .Filters.Add "Fichiers PDF", "*.pdf"
        .Show
        If .SelectedItems.Count > 0 Then Ret = ShellExecute(hwnd, "Open", .SelectedItems(1), 0&, 0&, 1)
    End With
End Sub