Bonjour !

Je souhaite intégrer un code vba dans word (pardon je sais que c'est excel mais comme il s'agit de vba...) qui enregistre en pdf, j'ai un code qui met en pdf toute les 1 pages je souhaiterais juste qu'il imprime deux pages.
Mon fichier word fait 500 pages il faudrait donc qu'il mette en pdf les pages 1-2 puis 3-4 puis 5-6, pour l'instant il ne fait que 1 puis 2 puis 3....

Merci infiniment

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub exportpdf()
Dim nbpage As Integer
Dim nom As String
 
nbpage = ActiveDocument.Sections.Count
 
For i = 1 To nbpage
nom = ActiveDocument.Range.Words(5)
ActiveDocument.ExportAsFixedFormat outputFileName:="P:\Fonds Grand Public\Distribution\Service Clients\AG\2019\AG nov 2019\Courrier\Test\" & nom & ".pdf", _
exportFormat:=wdExportFormatPDF, Range:=wdExportFromTo, From:=i, To:=i
Next
MsgBox "Export terminé"
End Sub