Salut à tous,

Je cherche avec VB Word à ajouter une image en entête de ma dernière page de mon fichier word (qui contient plusieurs sections).
J'ai essayé plusieurs choses mais sans succès.

J'ai une macro qui fait la même chose sur la première page et qui marche très bien, je ne trouve pas le code qui va bien pour choisir la dernière page (dernière section).

Les parties en rouge devraient je suppose être modifiées pour choisir la dernière page...
Voici le code qui marche bien pour la première page :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ImageDerrierePage1()

Dim ImagePage1 As Shape
Dim AdresseImage As String
Dim resultat As String

'Première page différente :
ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

'Supprimer l'entête de la permière page
ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Delete
   
AdresseImage = "\\XXX.jpg"

'Ajouter l'entête
Set ImagePage1 = ActiveDocument.Sections.First.Headers(wdHeaderFooterFirstPage).Shapes.AddPicture(AdresseImage)
       
End Sub
Si quelqu'un à une idée je suis preneur !

Merci d'avance et à bientôt.

Axel