Copier des données d'un fichier Excel vers des tableau Word
Bonjour,
j'ai en fait un fichier Excel depuis lequel je souhaite copier des données vers des tableaux Word.
Le fichier Word est un modèle qui a toujours la même structure et comprend plusieurs tableaux, en fonction des données elles seront copiées dans l'un ou l'autre des tableaux.
J'ai voulu tester la copie de données d'une cellule Excel vers une case d'un tableau Word en utilisant le code fourni dans la FAQ http://vb.developpez.com/faqvba/?pag...exportdataCell, mais rien du tout n'est recopié; le code utilisé est le suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub testcopie()
Dim FL As Worksheet
Dim Wd As Word.Document
Set FL = ThisWorkbook.ActiveSheet
Set Wd = GetObject("C:\Modele.doc")
Wd.Tables(1).Columns(1).Cells(1).Range.Text = FL.Range("A1")
End Sub |
Pour info je suis sous word et excel 2002 et j'ai bien activé la référence microsoft word 10 library.
Merci d'avance si vous avez une petite idée de comment je pourrai procéder.
