Accès fichier word depuis Excel avec VBA

Bonjour à tous.

Je suis en pleine 'conception' d'une super macro sous excel 8) et je

suis confronté au problème suivant: J'ai sur ma feuille un bouton qui

lance l'ouverture (en lecture seule) d'un fichier word et j'aimerais

récupérer le nom de ce fichier word dans mon fichier excel sous forme

d'hyperlien vers ce fichier word après l'avoir sauvegardé. Voici un apercu

de ce que fait mon bouton pour le moment:

Sub Button_Click()

'definition

Dim FichierWord As Object

Set FichierWord = CreateObject("Word.Application")

' Création document

FichierWord.Documents.Add

' Sauvegarde

FichierWord.ActiveDocument.SaveAs "C:\User\My Documents\test.doc"

Set wordapp = CreateObject("Word.Application")

wordapp.Documents.Open "C:\User\My Documents\test.doc"

wordapp.Visible = True

' Fermeture

FichierWord.ActiveDocument.Close

Set FichierWord = Nothing

End Sub

Merci d'avance pour vos suggestions!

Bonne journée

Bonjour,

l'enregistreur de macro m'a donné ceci :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\User\My Documents\test.doc", TextToDisplay:="test"

créé un lien hypertexte dans la cellule active, avec pour nom test

Bon courage

Merci felix. Ca marche nickel.