[VBA - E] Automation et remplissage d'un tableau Excel

Bonjour,

j'ai des données dans des feuilles Excel dont les valeurs doivent désormais être insérées dans un tableau Word et je n'ai pas envie d'insérer 50 signets vu qu'il y a 50 valeurs.

A l'aide d'un signet, je me place via automation dans la première cellule du tableau word, mais ensuite comment faire pour remplir le tableau ? Comment se déplacer dans le tableau ?

Merci

bonjour

j'espere que ces infos pouront t'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim wordApp As Object Dim wordDoc As Object   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 vers la 3eme cellule de la 1ere colonne Word 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 Word 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

---

bonne soiree
michel

Merci Michel,

ta solution m'éclaire beaucoup quand au remplissage d'un tableau word. Néanmoins, comment faire si on ne sait pas quel est le numéro du tableau dans le document word ?

Est-il possible d'y accéder via un signet et à partir de là word comprend qu'il s'agit de ce tableau là qui vient d'être sélectionné qu'il faut travailler ?