[VBA-E] Insérer n° page auto dans un doc Word

Bonjour,

J'ai un document word qui est créé sur la base de données d'excel. Tous fonctionne parfaitement bien mais j'aimerai insérer la numérotation en pied de page et je n'y arrive pas (depuis excel)! Dans mon pied de page j'ai déjà inséré un tableau excel et j'arrive à me positionner dans la bonne case mais impossible de trouver le code pour les pages...

Quelqu'un aurait-il une petit idée ?

bonsoir

j'espere que cet exemple pourra t'aider
cette macro Excel crée un document Word pour coller en pied de page une plage de cellule et y ajouter le champ "numero de page"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Dim Cible As Word.Range
Dim x As Integer
 
Set AppWord = CreateObject("word.application")
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add 'creation doc Word
 
'copie plage de cellule Excel
Range("B3:D4").Copy
 
'collage dans le pied de page Word
With AppWord.Selection.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Paste
.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With
 
x = DocWord.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables.Count
 
'le champ va etre inséré dans la 2eme ligne de la 1ere colonne
Set Cible = DocWord.Sections(1).Footers(wdHeaderFooterPrimary). _
Range.Tables(x).Cell(2, 1).Range
Cible.Text = ""
Cible.Collapse wdCollapseStart
 
'insertion du champ  "Numero de page"
DocWord.Fields.Add Range:=Cible, _
Type:=wdFieldPage, PreserveFormatting:=True

bonne soiree
michel

Ca marche !

Merci beaucoup et bonne journée