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 : 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
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.