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]

Re : Ouvrir pdf avec excel

Ci joint un fichier

 

[MASSJIPE]

Re : Ouvrir pdf avec excel

Bonjour
Une petite idée
merci

 

[kiki29]

Re : Ouvrir pdf avec excel

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

 

[MASSJIPE]

Re : Ouvrir pdf avec excel

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

 

[kiki29]

Re : Ouvrir pdf avec excel

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