Bonjour à tous,

Peut être pourrez vous m'aider.

J'ai créé un outil pour mon boulot à partir d'Excel. Dans celui-ci j'ai un userform me chargeant les fichiers pdf d'un répertoire donné.

Ce que je souhaiterais arriver à faire, c'est sélectionner le pdf dans la liste et en appuyant sur le bouton dédié, ouvrir le pdf sélectionné.

C'est là que je coince.

J'arrive à charger la liste des pdf se situant dans le répertoire avec ce code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    ChDir ActiveWorkbook.Path
    Répertoire = ThisWorkbook.Path & "\exemples\" 
    masque = Répertoire + "\*.pdf"
    nf = Dir(masque)
    Me.ListBox1.AddItem nf
 
 End Sub
Ensuite j'ai le code pour le bouton après sélection :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Openbottom_Click()
 
For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) = True Then
       nf = Me.ListBox1.List(i)
       Application.DisplayAlerts = False
 
      End If
    Next
End Sub
Et c'est là le problème. J'arrive à utiliser la méthode Workbooks.Open FileName:=nf si c'était du excel. Mais un pdf, je coince. J'ai essayé shell mais sans réussite.

Si vous avez une idée...