Discussion :

[Golard]

Bonjour,

Je ne dois pas être très en forme aujourd'hui, mais je m'arrache les cheveux depuis ce matin pour insérer mon pied de page personnalisé par VBA. Je souhaite insérer du texte suivi du numéro de page.

Le code suivant ne fonctionne pas car le n° de page écrase mon texte (je maitrise très mal les selection et range (même après avoir lu le chapitre Range et Selection de Olivier Lebeau):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
         With Selection.Sections.Last.Footers(wdHeaderFooterPrimary)
                .Range.Text = "MON ENTETE "  & Chr(149)
                .Range.Fields.Add Range:=Selection.Sections.Last.Headers(wdHeaderFooterEvenPages).Range, Type:=wdFieldPage
            End With

Le code suivant ne fonctionne pas car le champ { PAGE } est pris en compte comme du texte et pas comme un champ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            With Selection.Sections.Last.Footers(wdHeaderFooterPrimary)
                .Range.Text = "MON ENTETE " & Chr(149) & " { PAGE }"
            End With

Le code suivant ne fonctionne pas car le n° de page n'est pas inséré sur la ligne de mon texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
            With Selection.Sections.Last.Footers(wdHeaderFooterPrimary)
                .Range.Text = "MON ENTETE " & Chr(149) & " "
                .PageNumbers.Add
            End With

Bref je pédale dans la semoule

Merci d'avance à celui ou celle qui pourra m'aider

[Heureux-oli]

Salut,

Essaie avec un champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="Page"

Il te suffit de sélectionner la zone et de déplacer le curseur sur la zone sélectionnée.

[Golard]

Salut,

Essaie avec un champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="Page"

Il te suffit de sélectionner la zone et de déplacer le curseur sur la zone sélectionnée.

Bonjour Oli !
Dans ton exemple, le champs de type wdFielEmpty ne prends pas en compte le paramètre Text.

Pour ce qui est de l'utilisation de champs, je n'arrive pas à en insérer plusieurs dans l'entête (ou pied de page). Dés que j'ajoute un nouveau champs dans mon pied de page, même en positionnant le curseur, le champs remplace tout le pied de page.

Ma solution actuelle : ajouter le champ page à mon pied de page, puis insérer du texte avant ou après le champs.

CE CODE FONCTIONNE:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Footers(1).Range.Fields.Add Range:=.Range, Type:=wdFieldPage
Footers(1).Range.Collapse Direction:=wdCollapseStart
Footers(1).Range.InsertBefore (" MON TEXTE")

CE CODE NE FONCTIONNE PAS (le champs remplace le pied de page):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Footers(1).Range.Text = " MON TEXTE"
Footers(1).Range.Collapse Direction:=wdCollapseEnd
Footers(1).Range.Fields.Add Range:=.Range, Type:=wdFieldPage

Pourquoi je ne peux pas "insérer" mon champs sans supprimer mon texte ?

Comment faire si je voulais insérer un deuxième champs (par exemple le champs date) ?

[Heureux-oli]

Salut,

surprenant, j'ai fait un copier coller du code que j'ai écrit dans le VBE.
Code qui a fonctionné avant que je ne le poste.

Pour revenir à ta question, chaque fois que tu utilises un Range.Text, tu n'ajoutes pas du texte mais tu le remplaces.

C'est le même principe que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim monTxt as String
 
monTxt = "première chaîne"
monTxt = "seconde chaîne"

A la fin du code, monTxt contiendra "seconde chaîne", la première chaîne ayant été remplacée. Range correspond à un tout et pas une partie.

Soit tu définis une variable pour tout ton pied de page, mais je ne vois pas comment faire.
Soit tu utilises un Objet Selection au lieu d'un objet Range et tu peux te déplacer dans ton document.

[Golard]

Effectivement (j'ai rectifié ma précédente réponse),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:="Page"

équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range.Fields.Add Range:=.Range, Type:=wdFieldPage

Mais comment faire pour ajouter 2 champs l'un à la suite de l'autre dans le même pied de page, sans que le deuxième ne "remplace" le premier ???
Car l'objet Sélection dont tu parles ne me semble pas exploitable dans les entêtes & pied de page (sauf erreur de ma part?)

[Heureux-oli]

Salut,

Il faut utiliser un objet Selection.

par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="Page"
Selection.MoveEnd
Selection.TypeText " / "
Selection.MoveEnd
 
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="numPages"

[Golard]

Merci, ça marche parfaitement !

Il fallait abandonner l'objet Range et passer à l'objet Selection (que je cherchais bêtement à éviter) !!!

Je flag RESOLU