denisbouchard
XLDnaute Junior
Bonjour à tout le forum,
J'ai ce petit programme qui devrait me copier des cellules de Excel vers Word, mais j'ai 2 problèmes que je n'arrive pas à résoudre:
1- J'ai un message avant l'ouverture du fichier "Monfichier" qui me dit que celui-ci est déjà ouvert par moi.
2- Une erruer d'éxection '5941' => "Le membre de la collection requise n'existe pas" pour l'avant dernière ligne du programme.
J'ai bien coché la référence "Microsoft Word 12.0 Object Library" avant de commencer ce programme.
Quelqu'un peut-il m'aider à résoudre mes problèmes, svp.
Merci pour vos futures réponses
denis
J'ai ce petit programme qui devrait me copier des cellules de Excel vers Word, mais j'ai 2 problèmes que je n'arrive pas à résoudre:
1- J'ai un message avant l'ouverture du fichier "Monfichier" qui me dit que celui-ci est déjà ouvert par moi.
2- Une erruer d'éxection '5941' => "Le membre de la collection requise n'existe pas" pour l'avant dernière ligne du programme.
J'ai bien coché la référence "Microsoft Word 12.0 Object Library" avant de commencer ce programme.
Code:
Sub Donnes_ChampWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'Word Session
Set WordDoc = WordApp.Documents.Open("F:\MonFichier.docx") 'Ouverture Document Word
WordApp.Visible = True
'Tables(2) correspond au 2eme tableu du document Word
'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne
WordDoc.Tables(2).Columns(1).Cells(3).Range.Text = Range("A1")
'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne
WordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("A2")
End Sub
Quelqu'un peut-il m'aider à résoudre mes problèmes, svp.
Merci pour vos futures réponses
denis