Lienshypertext

Bonjour

j'ai un bout de code( ci joins en dessus) qui fonctionne bien pour ouvrir un pdf avec commande Button2 avec nom de fichier dans une listBox . Mais il ne fonctionne pas pour mon USF car le mon du fichier s'affiche dans une Textbox quel serait le bon code quand le nom du fichier s'affiChe dans une textBox (TextBox30)

Merci

Private Sub CommandButton4_Click()

Dim listevaleur

If Not (Dir("C:\Users\LOG\Desktop\" & ListBox1.List(ListBox1.ListIndex) & ".pdf") = ListBox1.List(ListBox1.ListIndex) & ".pdf") Then

MsgBox ("la procedure ne parvient pas a trouver un fichier portant ce nom")

Exit Sub

End If

ThisWorkbook.FollowHyperlink "C:\Users\LOG\Desktop\" & ListBox1.List(ListBox1.ListIndex) & ".pdf"

End Sub