Discussion :

[Floorfiler]

Bonjour,

Je souhaite pouvoir ouvrir un fichier Word depuis Excel

Les formules suivantes fonctionnent:

Code :

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

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 :

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

ThisWorkBook.FollowHyperlink(ValeurTextbox.doc)

Des idées ?

[mercatog]

Code :

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

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

[Floorfiler]

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

Code :

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

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

Merci quand même.