Ouvrir un pdf à partir d'un userform

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:

---

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:

---

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...

Code:

---

1 2 3 4 5

PrivateSub UserForm_Initialize() ChDir ActiveWorkbook.Path Répertoire = ThisWorkbook.Path & "\exemples\" masque = Répertoire + "\*.pdf" nf = Dir(masque) Me.ListBox1.AddItem ThisWorkbook.Path & "\exemples\" & nf EndSub

---

Merci pour la réponse.

Néanmoins, le code montré est pour afficher les pdf dans le userform, ce que j'arrive à faire.

C'est sélectionner un des fichiers et l'ouvrir où je galère un peu plus.

Mais merci quand même :)

dans ton formulaire ajout le contrôle PdfCrator !

Salut, voir ici : Visualisation d'une liste de fichiers PDF dans une UserForm via IExplorer et là

Bonjour et merci Kiki.

C'est parfait tes liens. Je les ai regardé et je vais trouver mon bonheur et y arriver du coup.

Vraiment top ! Un grand merci !! :D:D:D