Insérer image dans footer

Bonjour,

je dispose d'un document word de 5 pages. Chaque page correspond à une section.
Je souhaite ajouter via une macro un logo dans les pieds de page des pages 2 à 5.
J'utilise le code ci-dessous.

Mon problème est que si le document word est ouvert de telle sorte qu'une seule page apparaît en largeur à l'écran (word ouvert sur la moitié de mon écran), tout fonctionne correctement.
Si par contre word s'ouvre en pleine largeur d'écran avec deux pages affichés, la macro n'insère le logo que sur la page 2.

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Sub insert_logo_footer(ch As String, v As Single, h As Single) Dim img As Shape   Set img = ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary) _ .InlineShapes.AddPicture(FileName:=ch, LinkToFile:=False, SaveWithDocument:=True) With img .RelativeHorizontalPosition = 1 .RelativeVerticalPosition = 1 .Left = CentimetersToPoints(1.18) .Top = CentimetersToPoints(v) .LockAspectRatio = msoTrue .ScaleHeight h, True End With End Sub

---

Bonjour,

je suis pas un expert mais je pense que dans tous les cas les macros word sont faite pour fonctionnées en mode d'affichage Page.
Je te conseil donc d'ajouter un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub demo() Dim VueCourante As WdViewType   with ActiveWindow.ActivePane.View VueCourante = .Type .Type = wdPrintView 'puis pour travailler sur le pied de page .SeekView = wdSeekCurrentPageFooter end with   'ton code ici   'Sortie du Pied de page with ActiveWindow.ActivePane.View .SeekView = wdSeekCurrentPageHeader .SeekView = wdSeekMainDocument .View.Type = VueCourante End with End Sub

---

De plus un truc pour les pieds de page. si ton document comporte un pied de page unique pour toutes les pages il est préférable d'activer la liaison entre page.
Cela à pour effet de répéter le pied de page sur toute les pages liées

si l'on reprend la macro du dessus cela doit donné un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub demo() Dim VueCourante As WdViewType   with ActiveWindow.ActivePane.View VueCourante = .Type .Type = wdPrintView 'puis pour travailler sur le pied de page .SeekView = wdSeekCurrentPageFooter end with Selection.WholeStory Selection.Tables(1).Select Selection.HeaderFooter.LinkToPrevious = True Then   'ton code ici   'Sortie du Pied de page with ActiveWindow.ActivePane.View .SeekView = wdSeekCurrentPageHeader .SeekView = wdSeekMainDocument .View.Type = VueCourante End with End Sub

---

Mais pour un fonctionnement optimal de cette liaison le saut de section doit être de type "saut de section page suivante".

Code:

---

1 2	Selection.InsertBreak Type:=wdSectionBreakNextPage

---