Indiquer un tableau dans une zone de texte word à partir de Excel

Version imprimable

Bonjour,

J'ai un petit soucis avec mon code vba.
en effet j'utilise ce code pour identifier un tableau dans un fichier word et le remplir :
Code:

1 2 3 WordDoc.Tables(1).Rows.Add WordDoc.Tables(1).Columns(1).Cells(NbLign + 2).Range.Text = "Total" WordDoc.Tables(1).Columns(2).Cells(NbLign + 2).Range.Text = Format(tot, "#,0")
cependant j'ai cette fois si un tableau dans une zone de texte et je ne sais comment m'y prendre , j'ai une erreur après avoir essayé ce bout de code :

Code:

WordDoc.Shapes(1).Tables(1).Rows.Add

quelqu'un aurait une solution à ce problème ?

08/02/2016, 09h47
Heureux-oli
Salut,

Je pense que tu dois passer par une sélection et utiliser le tableau de cette sélection.
Code:

1 2 ActiveDocument.Shapes(1).Select Selection.Tables(1).Cell(1, 1).Range.Text = "moi"
09/02/2016, 10h15
saninx

j'ai une erreur : objet requis sur cette ligne.

Code:

ActiveDocument.Shapes(1).Select
09/02/2016, 14h51
Heureux-oli

Salut,

Dans ton cas, c'est l'objet WordDoc.

après avoir remplacé ActiveDocuments par WordDoc dans mon code , j'ai cette erreur : propriété ou méthode non gérée par cet objet à cette ligne

Code:

Selection.Tables(1).Rows.Add

voici mon code complet de cette partie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Gestion du tableau
                NbLign = Lign - 20
                NvLign = 20
                WordDoc.Shapes(1).Select
                For Cel = 2 To (NbLign + 1)
                    Selection.Tables(1).Rows.Add
                    Selection.Tables(1).Columns(1).Cells(Cel).Range.Text = Range("C" & NvLign)
                    Selection.Tables(1).Columns(2).Cells(Cel).Range.Text = Format(Range("D" & NvLign), "#,0")
                    NvLign = NvLign + 1
                Next Cel
 
                Selection.Tables(1).Rows.Add
                Selection.Tables(1).Columns(1).Cells(NbLign + 2).Range.Text = "Total"
                Selection.Tables(1).Columns(2).Cells(NbLign + 2).Range.Text = Format(tot, "#,0")
 
                Selection.Tables(1).Rows(1).shading.backgroundpatterncolor = RGB(160, 160, 160)
                Selection.Tables(1).Rows(NbLign + 2).shading.backgroundpatterncolor = RGB(160, 160, 160)
                Selection.Tables(1).Rows(1).HeadingFormat = True

11/02/2016, 11h31
Heureux-oli

Salut,

ton tableau est un tableau Word ou Excel ?
11/02/2016, 12h11
saninx

c'est un tableau Word qui est rempli à partir d'un tableau Excel.
finalement j'ai enlever le cadre qui créait le soucis vu qu'il était juste décoratif, afin de régler le problème.
Merci quand même pour votre aide.