Problème ouverture word macro excel Fermé

Question

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.

Slts.




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

Imod · Answer

SVP c'est urgent. Votre aide me sera très utile!!

Paf · Answer

Bonjour,

Dans le principe:

Dim MonWord As Word.Application
Set MonWord = New Word.Application
MonWord.Visible = True
MonFic = "C:\Documents and Settings\monchemin\" & NomdelaLigne & ".doc"
MonWord.Documents.Open Filename:=MonFic
MonWord.ShowMe
Après, voir comment récupérer le "nom de la ligne" (cellules nommées, nom du fichier écris dans une cellule ...)  et intégrer ce code dans le bouton ( lequel?)