Discussion :

[matimatfr]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[matimatfr]

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

[Invité]

dans ton formulaire ajout le contrôle PdfCrator !

[kiki29]

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

[matimatfr]

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