Bonjour,

après avoir étudié le tutoriel http://www.developpez.net/forums/d43...ro-pdfcreator/
Je suis toujours autant perdue...

j'ai un classeur excel avec différentes feuilles.

je souhaiterai sauvegarder dans un seul pdf, certaines pages de certaines feuilles.


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
 Sub print_societe()
 
Dim Ar(2) As String
Dim i As Integer
 
 
    Ar(0) = "Sommaire"
    Ar(1) = "ste-A"
    Ar(2) = "steA-rsx"
    Application.ScreenUpdating = False
 
    For i = 0 To 2
           Sheets(Ar(i)).Select
           ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Ar(i) & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=False
    Next
 
    Sheets(Ar(1)).Select
    Application.ScreenUpdating = True
End Sub
Le problème avec ce code c'est que j'ai un document pdf par feuille.
Alors que je souhaiterai fusionner dans un seul document pdf
  • la page 1 de ma feuille "sommaire"
  • la page 1 et 3 de ma feuille "ste-A"
  • la page 1 et 3 de ma feuille 'ste-A-rsx"


merci d'avance pour votre aide