Copie d'un tablea de Excel à fichier word existant

Bonjour à tous,

Je souhaiterais copier un tableau excel dans un fichier word existant.

Pour cela, ma macro fonctionne SAUF lorsque WORD est déjà ouvert. Pourriez vous m'aider et me dire quoi changer dans la macro suivante pour qu'elle fonctionne même lorsque WORD est déjà ouvert:

Sub Excel_Word()

Dim oWdApp As Object 'Word.Application

Dim oWdDoc As Object 'Word.Document

'Lancer une instance Word

Set oWdApp = CreateObject("Word.Application")

'Ouvrir un nouveau document

ThisWorkbook.FollowHyperlink "mon fichier word.doc"

'Rendre Word visible

oWdApp.Visible = True

'Copier une plage depuis Excel

Sheets("Accueil").Range("c35:h50").Copy

'Coller la plage dans Word

oWdApp.selection.Paste

'Annuler le mode couper/copier

Application.CutCopyMode = False

End Sub

Je vous remercie d'avance.

Cordialement

Morgan

En fait tu ne peux ouvrir deux fois le même word. donc ton application ne contiendra pas ton word en question.

Tu peux killer le process word assez facilement en envoyant une commande shell:

Rajoute ceci en début de code

KillWord = "TASKKILL /F /IM Winword.exe" 
Shell KillWord, vbHide 

Merci pour ta réponse.

Par contre, j'ai essayé de placer le killword un peu partout mais ça ne fonctionne pas.

Le fichier s'ouvre mais la copie ne s'effectue pas.

Peut être y aurait il une autre macro un peu plus compliqué pour copier ma sélection excel au début du word (1ère page, 1ère ligne du fichier word existant) ?

Rechercher des sujets similaires à "copie tablea fichier word existant"