Problème ouverture word macro depuis excel

Bonjour,
Je viens vous demander de l'aide car depuis 3 semaines j'essaie de
résoudre un problème mais en vain.
En effet, je dispose d'un fichier de synthèse excel qui possède n
lignes. Chaque ligne a une désignation spécifique. Un document word
portant le nom de chaque désignation (un doc word correspond à une
ligne). Je souhaiterai donc ouvrir automatiquement le fichier word via
ma synthèse excel.
exemple:
je suis à la ligne TOTO1. J'apppui sur le bouton et le fichier word
TOTO1.doc s'ouvre.
Pouvez-vous m'aider svp?
ps: je précise que ma macro fonctionne pour des fichier .xls.
Merci.


Ma macro:


Sub ouvre_PV800()
RetVal = Shell("C:\Program Files\Microsoft Office\Office14\WINWORD.EXE
T:\_AFFAIRES\9F_Koudiet_E0768\PLANT\realisat\L - SITE\L06 - PV DDM
Case\Suivi DDM\Stockage DDM NC\PV 800.doc", 1)
rep_dm = "T:\_AFFAIRES\9F_Koudiet_E0768\PLANT\realisat\L - SITE\L06 -
PV DDM Case\Suivi DDM\Stockage DDM NC\PV 800.doc"
nomfichlong = Dir(rep_dm & Cells(ActiveCell.Row, 3).Value & ".doc")
If nomfichlong = "" Then
MsgBox "La fiche n'existe pas"
Exit Sub
End If
If nomfichlong <> "" Then
Application.AskToUpdateLinks = False
Workbooks.Open Filename:=rep_dm & Cells(ActiveCell.Row,
3).Value & ".doc", UpdateLinks:=False
Application.AskToUpdateLinks = True
End If
End Sub
Problème ouverture word macro excel »