Ouvir un fichier PDF

Private Sub C194_Click()

    Dim Chemin, Fichier, Absolu As String

    Absolu = "C:\Users\Christian\Documents\Documents ScanSoft\1 Christian\2013\05\"

    Fichier = "10513001"
    
    'On ne continue que si un fichier a été sélectionné.
    If Fichier <> "" Then

        'Association des chemins absolu et relatif pour obtenir le chemin complet vers le fichier.
        Chemin = Absolu & Fichier & ".pdf"

        'Execution du fichier situé à l'emplacement "Chemin" avec son programme par défaut.
        
        'Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, _
        lpDirectory As Any, ByVal nShowCmd As Long) As Long
        ' va avec:
        'hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin, 0, 0, 1)
        '-------------------------------------------------------------------
        '-------------------------------------------------------------------
        '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
        ' va avec:
        hwndSim = ShellExecute(0&, "open", Chemin, "", Chemin, 1)
    Else
        MsgBox "Aucun fichier sélectionné"
    End If


End Sub

Sub test1()
    Dim Chemin, Fichier, Absolu, hwndSim As String

    Absolu = "C:\Users\Christian\Documents\Documents ScanSoft\"
    Fichier = [Forms]![Sav recherche]![sfmRecherche].[Form]![N°Facture]
    'On ne continue que si un fichier a été sélectionné.
    If Fichier <> "" Then
        'choix sous-sous repertoire
        Set oShell = CreateObject("Shell.Application")
        Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, Absolu)
        If oFolder Is Nothing Then
            MsgBox "Abandon opérateur", vbCritical
        Else
            'Association des chemins absolu et relatif pour obtenir le chemin complet vers le fichier.
            Set oFolderItem = oFolder.Self
            Chemin = oFolderItem.Path & "\" & Fichier & ".pdf"
            'Execution du fichier situé à l'emplacement "Chemin" avec son programme par défaut.
            hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin, 0, 0, 1)
        End If
    Else
        MsgBox "Aucun fichier sélectionné"
    End If
End Sub