Problème ouverture word macro depuis excel
Imod
-
g Messages postés 1285 Statut Membre -
g Messages postés 1285 Statut Membre -
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 »
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 »
A voir également:
- Problème ouverture word macro depuis excel
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tableau word - Guide
- Liste déroulante excel - Guide
3 réponses
Bonjour,
Pour ouvrir un doc Word depuis Excel, tu peux essayer et adapter la macro décrite ici http://gerard.g.pagesperso-orange.fr/logexl_09.htm#Ouverture_Word
Bonne journée.
Pour ouvrir un doc Word depuis Excel, tu peux essayer et adapter la macro décrite ici http://gerard.g.pagesperso-orange.fr/logexl_09.htm#Ouverture_Word
Bonne journée.
Bonjour,
J'ai suivi exactement le conseil que vous m'avez donné mais ça bloque toujours:=>Fichie introuvable.
J'ai toujours ce même problème. Pouvez-vous m'aider svp?
Merci
Sub OuvrirDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
'depuis le menu Outils > Références...
Dim appWrd As Word.Application
Dim docWord As Word.Document
'chemin d'accès du fichier Word à ouvrir
Fichier = "C:\Users\himed\Desktop\Test Macro.doc" 'A adapter
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = True 'pour que word soit apparent
Set docWord = appWrd.Documents.Open(Fichier)
End Sub
J'ai suivi exactement le conseil que vous m'avez donné mais ça bloque toujours:=>Fichie introuvable.
J'ai toujours ce même problème. Pouvez-vous m'aider svp?
Merci
Sub OuvrirDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
'depuis le menu Outils > Références...
Dim appWrd As Word.Application
Dim docWord As Word.Document
'chemin d'accès du fichier Word à ouvrir
Fichier = "C:\Users\himed\Desktop\Test Macro.doc" 'A adapter
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = True 'pour que word soit apparent
Set docWord = appWrd.Documents.Open(Fichier)
End Sub
