Discussion :

[Titiii25]

Bonjour à tous,
en cherchant et m'aidant de l'enregistreur de macro dans word j'ai réussi à faire cela :

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
'Insertion en tête et pied de page (Page1)
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.InsertFile "S:\Secrétariat\Banque de donnée\entete 1page.doc"
.Footers(wdHeaderFooterPrimary).Range.InsertFile "S:\Secrétariat\Banque de donnée\pied1 2pages.doc"
End With
 
'Curseur position début de courrier
 Selection.MoveDown Unit:=wdScreen, Count:=1
 
'Saut de section et page
Selection.InsertBreak Type:=wdSectionBreakNextPage
 
'Traitement page2/2
With ActiveDocument.Sections(2)
    'If Selection.HeaderFooter.LinkToPrevious = True Then
 
        Selection.HeaderFooter.LinkToPrevious = False 'pour casser le lien avec la page précédente
   ' End If
    .Headers(wdHeaderFooterEvenPages).Range.InsertFile "S:\Secrétariat\Banque de donnée\entete2 2pages.doc"
    .Footers(wdHeaderFooterEvenPages).Range.InsertFile "S:\Secrétariat\Banque de donnée\pied2 2pages.doc"
End With
 
End Sub

Mais je bloque avec une erreur (Erreur d'exécution 91 variable objet ou variable de bloc with non définie avec l'instruction =>

Code :

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

1
2
If Selection.HeaderFooter.LinkToPrevious = True Then
)

[Titiii25]

voilà ce que j'ai réussi à faire, mais les deux en têtes restent les mêmes !

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Document_Open()
 
'Insertion en tête et pied de page (Page1)
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.InsertFile "S:\Secrétariat\Banque de donnée\entete 1page.doc"
.Footers(wdHeaderFooterPrimary).Range.InsertFile "S:\Secrétariat\Banque de donnée\pied1 2pages.doc"
End With
 
'Curseur position début de courrier
Selection.MoveDown Unit:=wdScreen, Count:=1
 
'Saut de section
Selection.InsertBreak Type:=wdSectionBreakNextPage
 
'Traitement page2/2
    'on vas à la section qui nous interesses
Selection.GoTo wdGoToSection, , , 2
 
' Activation du pied de page
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
 
    'Se mettre en début d'en tete 2
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
 
'Suppression des liens en en tete
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
        LinkToPrevious
'If Selection.HeaderFooter.LinkToPrevious = True Then
'    Selection.HeaderFooter.LinkToPrevious = False 'pour casser le lien avec la page précédente
'End If
 
'on retourne à la section qui nous interesses pour desactiver le pied de page
Selection.GoTo wdGoToSection, , , 2
 
 
'Traitement page2/2
With ActiveDocument.Sections(2)
    .Headers(wdHeaderFooterEvenPages).Range.InsertFile "S:\Secrétariat\Banque de donnée\entete2 2pages.doc"
    .Footers(wdHeaderFooterEvenPages).Range.InsertFile "S:\Secrétariat\Banque de donnée\pied2 2pages.doc"
End With
 
 
End Sub

[Titiii25]

Personne pour m'aider s'il vous plait ?

[Heureux-oli]

Salut,

Le mélange des vues avec du code donnant accès aux objets n'est pas une bonne solution.

Un petit exemple ?

Code :

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

1
2
3
4
5
6
7
 
Sub EntetePiedDePage()
ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text = "Ma première page"
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Mes autres pages"
 
End Sub

[Titiii25]

Niquel, c'est ce que je recherchais et le code est beaucoup plus simple ! Par contre dernière chose comment diminuer la marge du haut que sur la deuxième page ?
J'ai essayer avec cela mais ca change les deux :

Code :

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

Selection.PageSetup.TopMargin = CentimetersToPoints(0.95)

Dernière chose, auriez-vous des liens de tutoriaux complet sur le vba word ou sinon un bon livre dessus. Merci Beaucoup !

[Heureux-oli]

Salut,

La mise en page est applicable à toute une section.
Pour que la mise en page soit différente d'une page à l'autre, il faut un saut de section.

Pour le VBA Word, il est toujours en cours de rédaction :http://heureuxoli.developpez.com/office/word/vba-word/

Pour le VBA : http://heureuxoli.developpez.com/office/word/vba-all/

Et pour tous les tutoriels qui concernent Word : http://word.developpez.com/cours/

[Titiii25]

Merci pour ces solutions !