Transformer une liste de fichier en lien

Bonjour à tous,

J'ai actuellement dans mon classeur un USF qui s'ouvre à l'ouverture de mon classeur et qui comporte une listbox et un textbox.

Dans la listbox j'ai la liste des fichiers .xls dans un dossier donné.

Dans le textbox je peux rentrer un nouveau mot pour créer un fichier .xls avec comme nom ce mot.

Ce que je voudrais c'est que les fichiers présent dans ma listbox deviennent des liens. Le but est de pouvoir simplement cliquer sur le nom du fichier dans la listbox pour que celui-ci s'ouvre.

Je vous laisse un morceau de code pour une meilleure compréhension:

Private Sub CommandButton1_Click()

Range("B2").Value = TextBox1

UserForm2.Hide

    'Enregistrement auto
     'Déclaration des variables
   Dim VAR12 As Variant

   'Valeurs des variables
   VAR12 = Range("B2")
     'Enregistrement
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Users\Damien\Desktop\" & VAR12 & ".xlsm"
Application.DisplayAlerts = True

End Sub

Private Sub UserForm_Initialize()
Dim repertoire As String, Fichier As String
repertoire = "D:\Users\Damien\Desktop\"
Fichier = Dir(repertoire & "*.xls")
Do While Fichier <> ""
    ListBox1.AddItem Fichier
    Fichier = Dir
Loop
End Sub

Merci d'avance à tous!

Je n'y connais pas grand chose mais un truc du genre *.Address*

Filename:="D:\Users\Damien\Desktop\" & VAR12 & ".xlsm".address 

ca ne serai pas vers ca qu'il faudrait aller?

Bonjour kyronex et merci de t'interresser à mon sujet.

Aparement il fautdrait utiliser quelque chose de la forme:

Follow : 
    Cells(1).Hyperlinks(1).Follow 

Malheureusement, pour l'instant je suis incapable de le mettre en place!

salut,

j'ai déjà vu ca,

dès que j'ai un peu de temps je fouille dans mes fichiers pour trouver la bonne réponse, mais oui, je crois que tu approches.

Cool, je te remercie!^^

Salut et désolé pour la réponse très tardive,

j'ai trouvé la solution, si cela t’intéresse encore, fais le moi savoir