Comment ouvrir un pdf à partie d'un d'une listbox ?

Bonjour,

J'ai créé une listbox dans un userform, je voudrais savoir les différents codes qui permet d'ouvrir un pdf ?

Merci

Bonne journée

Hello Tout le monde,

Donc tu as déjà ton UserForm...

Supposons que tu as 5 fichiers pdf : PDF1.pdf, PDF2.pdf, PDF3.pdf, PDF4.pdf et PDF5.pdf. La liste se trouve en A2:A6.

Supposons maintenant que les fichiers pdf se trouvent dans le même dossier que ton fichier Excel.

Supposons aussi que ton UserForm comporte 1 ListBox et 2 CommandButton (1 "Ouvrir" et 1 "Sortie").

Tu colles ce code dans l'UserForm...

Private Sub UserForm_Initialize() 'À l'ouverture de l'UserForm

    Dim l As Long

    'Alimente la ListBox
    For l = 2 To Range("A1000").End(xlUp).Row
        ListBox1.AddItem Cells(l, 1).Value
    Next l

End Sub
Private Sub CommandButton1_Click() 'Bouton "Ouvrir"

    Dim l As Long

    'Boucle sur les éléments de la ListBox
    For l = 0 To ListBox1.ListCount - 1
        'Si un ou plusieurs éléments sont sélectionnés alors
        '(Note que si tu veux pouvoir sélectionner plusieurs éléments, il faut,
        'dans la fenêtre des propriétés de la ListBox, que tu mettes le "MultiSelect" à 1 !)
        If ListBox1.Selected(l) = True Then
            'Ouvre le fichier
            'Cette ligne impose que les fichiers pdf doivent être dans le même dossier
            'que le classeur. Ou adapter le chemin.
            ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\PDF" & l + 1 & ".pdf"
        'Fin de la condition
        End If
    'Fin de la boucle
    Next l

End Sub
Private Sub CommandButton2_Click() 'Bouton "Sortie"

    Unload Me

End Sub