Discussion :

[Soticca]

Bonjour,

Je met en fond de page une image via le code suivant (cela fonctionne très bien) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim image As Shape
Set image = ActiveDocument.Shapes.AddPicture(FileName:="C:\image.png")
With image
    .RelativeHorizontalPosition = 1
    .RelativeVerticalPosition = 1
    .Left = 0
    .Top = 0
    .Width = ActiveDocument.PageSetup.PageWidth
    .Height = ActiveDocument.PageSetup.PageHeight
    .WrapFormat.Type = wdWrapBehind
End With

J'essaye, ensuite, de passer à la page suivante. Malheureusement, si j'insère un saut de page avec

Code :

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

Selection.InsertBreak Type:=wdPageBreak

J'ai bien le saut de page mais l'image est sur la dernière page et non sur celle d'avant.

En bref, comment faire pour ajouter une image en fond de page (sur toute la surface), puis passer à la page suivante pour faire autre chose.

Merci d'avance.

[Invité]

Bonjour,

Une solution consisterait à créer le saut de page en premier :

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
19
20
21
22
23
24
25
26
27
28
 
Sub Test()
 
Dim image As Shape
 
    With Selection
         .HomeKey unit:=wdStory
         .InsertBreak Type:=wdPageBreak
         .HomeKey unit:=wdStory
    End With
 
    Set image = ActiveDocument.Shapes.AddPicture(FileName:="C:\image.png")
 
    With image
        .RelativeHorizontalPosition = 1
        .RelativeVerticalPosition = 1
        .Left = 0
        .Top = 0
        .Width = ActiveDocument.PageSetup.PageWidth
        .Height = ActiveDocument.PageSetup.PageHeight
        .WrapFormat.Type = wdWrapBehind
    End With
 
    With Selection
         .EndKey unit:=wdStory
    End With
 
End Sub

[Soticca]

Bonjour,

Cela marche très bien.

Par contre, j'ai vu que le "Homekey unit:=wdStory" permettait de remonter au début du document.

Mais si je veux, à l'endroit où je suis positionné, faire un saut de page puis remonter juste d'une page pour me retrouver à mon point de départ, comment devrais-je faire ? (autant me déplacer dans Excel en VBA je maitrise, autant Word, j'ai vraiment du mal avec la logique).

[Invité]

Un solution consisterait à identifier avec une boucle décroissante les premiers paragraphes de la page en cours et de la page N-1 avec cette ligne de code :

Code :

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

.Range.Information(wdActiveEndPageNumber)

Puis de se positionner sur le paragraphe de la page N-1.

[Soticca]

Un solution consisterait à identifier avec une boucle décroissante les premiers paragraphes de la page en cours et de la page N-1 avec cette ligne de code :

Code :

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

.Range.Information(wdActiveEndPageNumber)

Puis de se positionner sur le paragraphe de la page N-1.

Finalement, cela me pose moins de problème pendant la construction de mon document. Je fais juste un moveleft count 2 une fois que j'ai fais mon saut de page pour revenir insérez mon image et cela fonctionne.

Je passe en résolu