Afficher le nom du fichier en hyperlinks dans une cellule

**kaglaborn** · 13/10/2015, 12h25

Salut à tous,

J'ai créé un Userform et dans une des Textbox se trouve le chemin d'accès d'un fichier.
J'ai réussi à créer un lien hypertext dans une cellule à partir de ce chemin mais je souhaiterais que ce soit le nom du fichier qui s'affiche et pas son chemin d'accès.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, 5), Address:=TextBox2.Text

Et donc je souhaiterais que dans ma cells(n,5) s'affiche le nom du fichier et pas son chemin d'accès. J'ai alors pensé à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, 5), Address:=TextBox2.Text, TextToDisplay:=""

Au final, je ne sais pas si la solution du TextToDisplay est bonne et ce que je dois mettre à la place des "" pour que le nom du fichier s'affiche.
Si quelqu'un à une idée, je suis tout ouïe !

Je vous remercie d'avance.
Karl

**OursTortue** · 13/10/2015, 13h24

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim fso As New FileSystemObject
Dim fileName As String
fileName = fso.GetFileName("c:\chemin\fichier.txt")

Dans ton exemple ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim fso As New FileSystemObject
Dim nom_fichier_a_afficher As String
nom_fichier_a_afficher = fso.GetFileName(TextBox2.Text)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, 5), Address:=TextBox2.Text, TextToDisplay:=nom_fichier_a_afficher

Évite au maximum les Activesheet si tu peux, ça peut facilement créer des problèmes.

**kaglaborn** · 13/10/2015, 15h15

Salut,

j'ai un problème avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim fso As New FileSystemObject

j'ai un message d'erreur disant erreur de compilation, type défini par l'utilisateur non défini.

Je sais pas du tout pourquoi j'ai ce message... Aurais-tu une idée stp ?