Marcro et Fusion d'un tableau Excel dans Word

[Pretorienx]

Salut @ tous,

je souhaite faire une macro qui me prend un tableau Excel (certaine colones) et qui me copie ces colones dans un tableau word.
Seulement en Word je ne sais pas comment donner de nom à mon tableau pour dire à Excel c'est ce tableau là dans lequel tu copies les cellules voulues.


Pour simplifier:
dans excel j'ai le tableau suivant:
-----------------------------------------------------------------
a / b / c / d / e / f /
-----------------------------------------------------------------

50 / 20 / 11 / 33 / 9 / 7 /
-----------------------------------------------------------------


et dans word celui-là (mais vide)

---------------------------------
b / e / f /
--------------------------------

et je souhaite recupérer les colones correspondent dans excel et les mettre dans word, dans ce tableau-ci



Si quelqu'un sait ou à une idée ça serait vraiment sympa, car la je cherche depuis un bout de temps, et dans les tutoriaux y pas grand chose là dessus.

Merci

pretorienx

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider


Sub exportValeursExcelVersTableWord()
'Necessite d'activer la reference Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

Set wordApp = CreateObject('word.application')
wordApp.Visible = True 'mettre False pour garder Word masqué
Set wordDoc = wordApp.Documents.Open('C:\\monDocument.doc') 'ouvre le document Word

'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')


'wordDoc.Close True 'ferme le document Word en enregistrant les modifications
'wordApp.Quit 'ferme l'application Word
End Sub


bonne soiree
MichelXld