Ajouter numéro de page en pied de page sur Word

**Anthony47** · 20/08/2019, 14h32

Bonjour à tous !

Depuis un fichier Excel, j'ai une macro qui me génère un fichier Word qui va bien.

A la fin de la macro, j'aimerais ajouter quelque ligne pour ajouter le numéro de page en pied de page sur le Word généré.

Voici la macro :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Function exist(feuille As String, nom As String) As Boolean
exist = False
On Error Resume Next
    x = Sheets(feuille).Range(nom).Address
    If Err.Number = 0 Then exist = True
On Error GoTo 0
End Function
 
Sub export_excel_to_word()
    Dim obj As Object
    Dim newObj As Object
    Dim sh As Worksheet
    Dim myFile
 
 
    Set obj = CreateObject("Word.Application")
    obj.Visible = True
    Set newObj = obj.Documents.Add
' obj.Selection.ParagraphFormat.LeftIndent = (20)
      With obj.Selection
        .PageSetup.TopMargin = (20)
        .PageSetup.LeftMargin = (17.5)
        .PageSetup.RightMargin = (20)
        .PageSetup.BottomMargin = (0)
    End With
 
For n = 1 To 3
    If exist("En_tête", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("En_tête").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteBitmap, _
      Placement:=wdInLine, DisplayAsIcon:=False
     '   .PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile, _
      '  Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=6
        End With
     End If
Next
 
For n = 1 To 15
    If exist("Descriptif", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("Descriptif").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteBitmap, _
      Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=6
        End With
    End If
Next
 
For n = 1 To 5
    If exist("Carac_tech", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("Carac_tech").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteBitmap, _
      Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=6
        End With
    End If
Next
 
     ThisWorkbook.Worksheets("CGV").Range("CGV").Copy
    obj.Selection.PasteSpecial Link:=True, DataType:=wdPasteBitmap, _
      Placement:=wdInLine, DisplayAsIcon:=False
 
     'Worddoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        'PageNumberAlignment:=wdAlignPageNumberRight
 
   Application.CutCopyMode = False
    myFile = Replace(ActiveWorkbook.Name, "xlsm", "docx")   'remplacer "docx" par l'extension qui convient, si nécessaire
    newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & myFile
 
    MsgBox "Export vers Word terminé", vbInformation + vbOKOnly, "Export vers Word"
 
    obj.Activate
    Set obj = Nothing
    Set newObj = Nothing
End Sub

Voilà, si vous savez comment faire, merci

PS : Vous voyez, j'ai tenté ce bout de code trouvé sur le forum

Code :

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

1
2
'Worddoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
'PageNumberAlignment:=wdAlignPageNumberRight

Mais évidement ça fonctionne pas, il faut déclarer le WordDoc et ça je sais pas faire.

**Menhir** · 20/08/2019, 14h45

Envoyé par Anthony47

PS : Vous voyez, j'ai tenté ce bout de code trouvé sur le forum

Code :

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

1
2
'Worddoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
'PageNumberAlignment:=wdAlignPageNumberRight

Mais évidement ça fonctionne pas, il faut déclarer le WordDoc et ça je sais pas faire.

Dans ta macro, le document Word est référencé par la variable newObj.

C'est donc elle qu'il faut utiliser comme référence de document pour appliquer le pied de page.

**Anthony47** · 21/08/2019, 09h07

Ah oui d'accord, j'ai tenté

Code :

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

1
2
     newObj.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        PageNumberAlignment:=wdAlignPageNumberRight

Mais ça me dit : Le membre de la collection requis n'existe pas

**clementmarcotte** · 26/08/2019, 22h55

Bonjour,

Si ta macro est dans Excel, tu ne peux pas utiliser seulement les noms des constantes de Word. Ta macro Excel doit avoir la valeur numérique de la constante.

Soit que tu fais:

Code :

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

1
2
3
Const wdAlignPageNumberRight = 2
 newObj.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        PageNumberAlignment:=wdAlignPageNumberRight

ou tu le mets directement

Code :

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

1
2
newObj.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        PageNumberAlignment:=2

Et c'est vrai pour toutes les constantes dans tous les cas de pilotage.

**Anthony47** · 27/08/2019, 10h53

Bonjour clementmarcotte,

Merci pour ton aide, je pense en effet que ça doit être lié à ce que tu dis, mais je n'ai pas les connaissances nécessaire pour y arriver de moi même.

En tout cas j'ai essayé le

Code :

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

1
2
3
Const wdAlignPageNumberRight = 2
 newObj.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        PageNumberAlignment:=wdAlignPageNumberRight

Et ça me dit propriété ou méthode non géré par cet objet si j'utilise Obj
et Le membre de la collection requis n'existe pas si j'utilise NewObj

Idem pour ta deuxième solution.

Est-ce que ça viendrait pas de ce Sections(1) ?

**clementmarcotte** · 27/08/2019, 21h28

Bonjour,

Oups !! j'ai oublié, c'est le même problème avec wdHeaderFooterPrimary

Et cela arrive, que OLE ne supporte pas non plus les paramètres nommés. (Second problème, si on peut dire.)

Essaie à l'ancienne mode :

Code :

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

newObj.Sections(1).Footers(1).PageNumbers.Add(2)

**Anthony47** · 29/08/2019, 13h45

Top ça fonctionne !

Comment tu sais par quel numéro tu dois le remplacer ?

Du coup ça me génère aussi un entête vide et ça j'en veux pas, ça décale mes éléments vers le bas.

Possible de diminuer la hauteur de l'entête à 0 ?

L'enregisteur de macro word me donne ça

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
 With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(0.71)
        .BottomMargin = CentimetersToPoints(0)
        .LeftMargin = CentimetersToPoints(0.62)
        .RightMargin = CentimetersToPoints(0.71)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0.1)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft

Je pense que c'est le HeaderDistance

Mais je sais pas l'inclure à la suite de ton code

NB : J'ai trouvé, je l'ai mis à la suite de mon code tout au début

Code :

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

1
2
3
4
5
6
With obj.Selection
        .PageSetup.TopMargin = (20)
        .PageSetup.LeftMargin = (17.5)
        .PageSetup.RightMargin = (20)
        .PageSetup.BottomMargin = (0)
        .PageSetup.HeaderDistance = (0)

**Anthony47** · 29/08/2019, 14h01

Tu sais si c'est possible d'avoir Nb page/Nb total de page : 3/6

**clementmarcotte** · 29/08/2019, 19h43

Bonjour,

Envoyé par Anthony47

Top ça fonctionne !

Comment tu sais par quel numéro tu dois le remplacer ?

Ils sont sur MSDN

Sans garantir que la méthode est infaillible, parce que des fois, il faut fouiller plus longtemps. J'utilise Bing !, mais cela devrait marcher avec Google. (Bing! me donne des points de Microsoft)

Je lui met en pâture :

MSDN le nom de la constante. Et généralement on trouve le lien dans les premiers résultats

Cela a été plus rapide pour wdAlignPageNumberRight. Pour l'autre cela a été plus long.

Nom : msdn1.jpg
Affichages : 366
Taille : 154,8 Ko

Nom : msdn1.jpg
Affichages : 366
Taille : 154,8 Ko

Nom : msdn2.jpg
Affichages : 337
Taille : 144,6 Ko

Tu sais si c'est possible d'avoir Nb page/Nb total de page : 3/6

Oui c'est possible.

**Anthony47** · 30/08/2019, 08h31

Ah d'accord je comprend mieux, même si je pense pas être capable de savoir quand remplacer le texte par les numéros, au moins si j'ai un numéro associer à une fonction je pourrais trouver par quoi le modifier

En passant par l'enreugistreur de maccro, j'obtiens

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Application.Templates( _
        "C:\Users\FRED\AppData\Roaming\Microsoft\Document Building Blocks\1036\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Numéros en gras 3").Insert Where:=Selection.Range _
        , RichText:=True

On est loin de ton petit newObj.Sections(1).Footers(1).PageNumbers.Add (2)

**Menhir** · 30/08/2019, 09h24

L'enregistreur de macro est un très bon outil à condition de ne pas utiliser directement le code fourni mais de prendre le temps de l'analyser en s'aidant de l'aide en ligne de VBA.

**Anthony47** · 30/08/2019, 11h59

Oui on est d'accord ^^

Ce que je comprend de mon analyse c'est que ça c'est la partie utile du code

Code :

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

1
2
3
4
5
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Application.Templates( _
        "C:\Users\FRED\AppData\Roaming\Microsoft\Document Building Blocks\1036\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Numéros en gras 3").Insert Where:=Selection.Range _
        , RichText:=True

Après je sais pas comment transformer ça en newObj.Sections(1).Footers(1).PageNumbers.Add (#?)

Ajouter numéro de page en pied de page sur Word

VBA Word

Discussions similaires

Partager

Partager