Lien vers le fichier sélectionne

Bonjour,

J'ai une ListeBox qui affiche les noms de fichiers stocké dans une Base de données, je veux quand je clique sur un fichier précis, faire un lien vers ce fichier pour l'ouvrir .

Voila ce que j'ai fais, mais j'arrive pas à adapter ce code pour ce que je veux .

Private Sub CommandButton2_Click()

Dim strConc As String

strConc = ""

For i = 0 To UserForm1.ListBox1.ListCount - 1

If UserForm1.ListBox1.Selected(i) = True Then

strConc = strConc & ListBox1.List(i) & vbCrLf

ActiveSheet.FollowHyperlink Address:=rss![FilePath] & "\" & rss![FileNamecosting]

End If

Next i

End Sub

Merci

Slt Kimojok,

un fichir peut être?