VBA lien hypertexte non actif

[polska_diane]

Bonjour,
J'insère dans userform (via un commandbutton2 pour parcourir les fichiers) un lien vers un fichier sur mon pc dont le nom apparaît dans le textbox9.
Cependant quand je valide le userform (commanbutton3), le lien se colle dans la bonne cellule mais pas en lien actif (non cliquable) comment je peux faire?
Merci d'avance pour votre aide.

Private Sub CommandButton2_Click()
  With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox9.Text = .SelectedItems(1)
       
    End With
End Sub

Private Sub CommandButton3_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer

Application.ScreenUpdating = False

With Worksheets("Suivi")
derligne = .Range("A65536").End(xlUp).Row + 1


For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Sheets("Suivi").Cells(derligne, r) = Ctrl

Next
Sheets("Suivi").Cells(derligne, 1) = Val(TextBox1)



End With
Application.ScreenUpdating = True
Unload Me
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@polska_diane [Bienvenue sur le forum]
Suggestion en passant
Créées manuellement un lien dans une cellule en laissant tourner l'enregistreur de macros.
Observe le code vba obtenu, et tu comprendras pourquoi ton lien n'est pas actif.