[VBA] [WORD] se placer sur la 1ere page

[meufeu]

Bonjour,

Je voudrais sélectionner une image qui est dans l'entete de la premiere page (page de garde de mon rapport, page 1 donc entete1 de la section1)
Je pensais que c'etait tout bete :

Code :

ActiveDocument.Sections.First.Headers(wdHeaderFooterFirstPage).Shapes(1)

mais il va sur la section 3 ...

La section 3 est la première section a contenir des numéros de page ...

Comment faire ?
Merci d'avance !

[ouskel'n'or]

commence par aller sur la première page, ensuite, passe dans l'entête

Ex :

Code :

1
2
3
4
    Selection.HomeKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.TypeText Text:="Ceci est mon entête"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

A+

[meufeu]

merci de ta réponse et de ta rapidité

ca m'embete de procéder comme tu dis
car c lourd (l'utilisateur voit que l'on se déplace dans le document)
et je perd l'endroit ou j'etais !

[ouskel'n'or]

On ne voit rien si tu mets

Code :

Application.ScreenUpdating = false

Avant de te déplacer dans le document

et

Code :

Application.ScreenUpdating = True

pour mettre à jour l'affichage

Regarde l'aide, c'est très bien expliqué...

A+

[meufeu]

ah ouais, c sympa ca, ca va pas mal optimiser mon prog !!
merci

par contre, je n'arrive pas, a partir du code que tu m'a donné
a aller dans l'entete de la premiere page et récupérer mes deux "shapes"