Hyperlinks dans USF

Bonsoir le forum,

Je cherche à afficher les fichiers qui se trouvent dans un répertoire en hyperlinks dans un USF.

Je sais bien le faire à partir d’une liste qui se trouve sur une feuil, mais pas lorsque cette liste s’importe directement.

J’ai modifié un bout de code :

Mais pour la partie hyperlinks, je ne comprends pas pourquoi cela ne fonctionne pas.

Je pensai qu’il fallait ajouter ceci

.Hyperlinks(1).Address

Mais ceci serait trop facile.

Et ce que cela est faisable ?

Je clos le sujet, car j’ai trouvé la solution :

Private Sub ListBox1_Click()
    On Error Resume Next
    Err = 0
    ActiveWorkbook.FollowHyperlink Address:=Me.ListBox1, NewWindow:=True
    If Err <> 0 Then MsgBox "Erreur"
End Sub

Et en plus c’est logique.