arbo depuis combos (Résolu)

Sub Test()
Dim ChNomFic
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
ChNomFic = Application.GetOpenFilename("Fichier PDF,*.pdf", Title:="Ouverture d'un fichier PDF")
If VarType(ChNomFic) = vbString Then
   MsgBox ChNomFic, vbInformation, "Test"
Else
   MsgBox "Aucun fichier sélectionné", vbCritical, "Test"
   End If
End Sub

Option Explicit
 
Private Sub UserForm_Initialize()
    With UserForm1
        .Height = 600
        .Width = 600
    End With
End Sub

Option Explicit
 
Private Sub LoadPDF(ByVal sNomFichier As String, iNumPage As Long)
Dim oPDF As Object
 
    Set oPDF = UserForm1.Controls.Add("AcroPDF.PDF.1", "DisplayPDF")
 
    With UserForm1.Controls("DisplayPDF")
        .Height = UserForm1.Height - 20
        .Width = UserForm1.Width - 5
        .Visible = True
    End With
 
    With oPDF
        '   Nom fichier
        .src = sNomFichier
        .setShowScrollbars True
        '   Barre d'outils
        .SetShowToolbar True
        '   none bookmarks thumbs
        .setPageMode "bookmarks"
        '   DontCare SinglePage OneColumn TwoColumnLeft TwoColumnRight
        .setLayoutMode "SinglePage"
        '  page affichée
        .setCurrentPage iNumPage
        '   Fit FitH FitV FitB FitBH FitB
        .setView "Fit"
        '   Zoom
        .setZoom 58
    End With
 
    UserForm1.Show
    Set oPDF = Nothing
End Sub
 
Sub SelFichierPDF()
Dim Fichier As Variant
    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
    If Fichier = False Then Exit Sub
    DoEvents
    LoadPDF Fichier, 1
End Sub