Bonjour à tous,
Merci pour vos réponses et vos retour.
Je n'ai pu vous répondre avant étant cloué au lit par une grippe, mais voilà, je viens de tester vos commandes et faire d'autres recherches. Et au final, j'ai trouvé une autre méthode que Shell que je n'arrivais pas à faire fonctionner.
Voilà le code final :
Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
Répertoire = ThisWorkbook.Path & "\Exemple\"
masque = Répertoire + "\*.pdf"
nf = Dir(masque) '
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir()
Loop
End Sub
Private Sub ListBox1_Click()
Me.TextBox1 = ListBox1.List(ListBox1.ListIndex)
End Sub
Private Sub CommandButton1_Click()
Dim Fichier As String
Fichier = ThisWorkbook.Path & "\Exemple\" & Me.TextBox1.Value
ThisWorkbook.FollowHyperlink (Fichier)
End Sub