Discussion :

[sat478]

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

[SilkyRoad]

bonjour

j'espere que ces infos pouront t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sat478]

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 ?