Discussion :

[saninx]

Salut, j'ai un véritable soucis ces derniers jours.

J'essais a partir d'une macro sur Excel d'ajouter des lignes et des colonnes à un tableau sur Word et y insérer des éléments contenu dans un tableau sur le fichier Excel.

Venez moi en aide , j'en ai urgemment besoin.

[kiki29]

Salut, voir les FAQs 1 2

[saninx]

j'ai vu le lien que tu m'as posté, mais on problème est beaucoup plus complexe vu que mes tableau sur Excel sont variables donc faut un petit programme qui l'automatise.

Merci quand même

[clementmarcotte]

Bonjour,

Poursuivi à :

http://www.developpez.net/forums/d15...r/#post8186545

[saninx]

Merci, j'ai trouvé la solution à mon problème

Pour ceux qui voudront s'en inspirer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Gestion du tableau
                NbLign = Lign - 21
                NvLign = 21
                For Cel = 2 To (NbLign + 1)
                    WordDoc.tables(1).Rows.Add
                    WordDoc.tables(1).Columns(1).Cells(Cel).Range.Text = Range("A" & NvLign)
                    WordDoc.tables(1).Columns(2).Cells(Cel).Range.Text = Range("B" & NvLign)
                    WordDoc.tables(1).Columns(3).Cells(Cel).Range.Text = Range("C" & NvLign)
                    WordDoc.tables(1).Columns(4).Cells(Cel).Range.Text = Format(Range("D" & NvLign), "#,0")
                    WordDoc.tables(1).Columns(5).Cells(Cel).Range.Text = Format(Range("E" & NvLign), "#,0")
                    NvLign = NvLign + 1
                Next Cel