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 :
Si quelqu'un à une idée je suis preneur !
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
Merci d'avance et à bientôt.
Axel
Partager