Insérer un "Page XX of YY" dans un tableau dans un header

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.

J'ai essayé de faire ça:

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

Bonjour et bienvenue,

Tu es sur un forum (principalement) dédié à Excel, pas Word !...

Cdlt.

C'est géré par macro excel, du coup je ne sais pas si je dois poster ca ici ou non