Sujet Précédent Sujet Suivant

Problème ouverture word macro excel

Imod -  
 Paf -
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
A voir également:

2 réponses

Réponse 1 / 2
Imod
 
SVP c'est urgent. Votre aide me sera très utile!!
0
Réponse 2 / 2
Paf
 
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?)
0