insertion page word dans excel

[jadrax]

Bonjour,

Dans le but de sortir un bon de commande, je souhaiterais créer une macro qui appellerai un fichier word déjà fait.
mon fichier se nomme commande.doc
je ne souhaite pas attribuer un chemin d’accès fixe mais l'ouvrir uniquement via le nom du document
Je n'arrive pas a trouver comment faire... quelqu’un aurait il une idée?

Merci d'avance!

 

[jadrax]

Re : insertion page word dans excel

Pour la contrainte effectivement normalement il n'y aura qu'un seul fichier ayant ce nom...sinon je suis aussi preneur avec un chemin d'accés!

Merci

 

[jadrax]

Re : insertion page word dans excel

Merci, le probleme c'est que si j'essai cela :

'Dim wrdApp As Word.Application
' Dim wrdDoc As Word.Document
' Set wrdApp = CreateObject("Word.Application")
'wrdApp.Visible = True
'Set wrdDoc = wordApp.Documents.Open("C:\Users\XXXXX\Desktop\test.doc")

ça me dit objet requis ou bien que le fichier n'existe pas..(pourtant si!)

 

[jadrax]

Re : insertion page word dans excel

en essyant cela trouver sur ton lien
Private Sub CommandButton3_Click()
Dim NDF As String, NDF2 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

NDF = ActiveWorkbook.Path & "\test.doc"
NDF2 = ActiveWorkbook.Path & "\Document" & Sheets("Feuil1").Range("A1").Text & ".doc"

On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
End Sub

il ne se passe rien...mais pas d'erreur non plus..j'ai oublié quelque chose?