Bonjour,

Je me triture le cerveau depuis ce matin sur comment intégrer un "Page XX of YY" dans un tableau de mon header dans un document word avec une macro. Sachant que c'est une macro Excel qui gère tout ça (Je ne sais pas s'il serait peut être pas mieux de mettre ce post dans la section excel).

J'ai essayé de faire ça:
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
 
 
nombrepagesdocword = objDoc.BuiltinDocumentProperties("Number of Pages")
 
Set tabhead = objDoc.Tables.Add(Range:=objDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range, NumRows:=2, NumColumns:=3, _
    DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
 
tabhead.Cell(1, 3).Range.Select
 
With objDoc.Sections(1).Headers(wdHeaderFooterPrimary)
        .Range.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "PAGE ", PreserveFormatting:=True
        .Range.InsertBefore "Page "
        .Range.InsertAfter " of " & nombrepagesdocword
End With
malheureusement ça plante sur .Range.Fields.add ....

Quelqu'un aurait une idée ?

Merci par avance