VBA Ouvrir Fichier word depuis Excel

Bonjour,

Je souhaite pouvoir ouvrir un fichier Word depuis Excel

Les formules suivantes fonctionnent:

Code:

---

1 2 3

ThisWorkBook.FollowHyperlink(range("A1").Text)   ThisWorkBook.FollowHyperlink(CheminCompletDuFichierWord)

---

Cependant je souhaite que le nom du fichier change en fonction du contenu d'un textbox qui est dans mon cas le nom de famille.

Code:

---

ThisWorkBook.FollowHyperlink(ValeurTextbox.doc)

---

Des idées ?

Code:

---

1 2 3

Const Chemin As String = "C:\Users\user\Desktop\"   If Len(Trim(TextBox1.Value))>0 then ThisWorkbook.FollowHyperlink Chemin & TextBox1.Value & ".doc"

---

J'ai procéder comme cela et cela fonctionne :

Code:

---

1 2	Monfichier = Me.Nom ThisWorkbook.FollowHyperlink Monfichier & ".doc"

---

Merci quand même.