Utilisation des champs étranges [Résolu]

[DrikS]

Bonjour,

Je développe des macros VBA sous Word.

Je veux construire un pied de page avec le nom du fichier, et le n° de page/nombre de page.

Code :

1
2
3
 
ActiveDocument.StoryRanges(wdPrimaryFooterStory).Tables(1).Cell(1, 3).Range.Text = wdPageNumber & "/" & wdPropertyPages
ActiveDocument.StoryRanges(wdPrimaryFooterStory).Tables(1).Cell(1, 2).Range.Text = wdFieldFileName

Les Champs

Code :

wdPageNumber

,

Code :

wdPropertyPages

et

Code :

wdFieldFileName

me renvoient n'importe quoi.

Par exemple, wdFieldFileName me renvoie 29....
Autre exemple, wdPageNumber est toujours égal à 7 et wdPropertyPages est toujours égal à 14 alors que mon document ne fait que 2 pages...

Savez-vous où peut se trouver mon erreur ?

Merci d'avance,

Cordialement

[Sepia]

Salut Driks,

Le comportement est en effet étrange ==> Peux-tu nous fournir ton doc s'il ne contient pas de données confidentielles ou illégales pour que l'on puisse t'aider ?

@+

[Heureux-oli]

Salut,

Je dirais un comportement tout à fait normal.

Avec ton code, on insére pas un champ, mais une constante et word ne donne que la valeur numérique de la constante.

wdPageNumber est 7, ...

Ce que tu dois insérer est un champ.

Code :

1
2
3
4
5
 
ActiveDocument.StoryRanges(wdPrimaryFooterStory).Tables(1).Cell(1, 1).Select
Selection.Collapse direction:=wdCollapseStart
 
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE  "

[DrikS]

Envoyé par Heureux-oli

Salut,

Je dirais un comportement tout à fait normal.

Avec ton code, on insére pas un champ, mais une constante et word ne donne que la valeur numérique de la constante.

wdPageNumber est 7, ...

Ce que tu dois insérer est un champ.

Code :

Merci heureux-oli. J'avais un peu oublié ce thread mais j'avais trouvé la solution. Merci de tes éclaircissement en tout cas.

Je fixe le sujet en

A+

DrikS