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:
Pour info je suis sous word et excel 2002 et j'ai bien activé la référence microsoft word 10 library.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance si vous avez une petite idée de comment je pourrai procéder.
Partager