Discussion :

[saninx]

Salut,
J'ai un tableau dont l'entête est déjà sur Word et que je remplis à partir d'une macro Excel.

J'aimerais à la fin du remplissage que l'entête de ce tableau se duplique automatique sur chaque page qui le contient.

Voici le bout de mon code :

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
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
                WordDoc.tables(1).Rows(1).shading.backgroundpatterncolor = RGB(160, 160, 160)
 
            Else
                MsgBox "Fichier introuvable"
                End
            End If

[Marc-L]

Comme il s'agit d'une problématique Word, voir dans le forum idoine après avoir enfin lu les règles de ce site …