Discussion :

[depi67]

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

[Marc-L]

Bonjour, bonjour,

juste pour info, voir cette discussion …

Sinon il y a tellement de discussions sur ce sujet, une p'tite recherche …

[depi67]

j'avais trouvé ce post mais je n'ai pas réussi à l'appliquer :-(

[kiki29]

Salut, voir ici en bas du post Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant pour Excel 2007 et + ou via PDFCreator ici

[depi67]

lorsque j'utilise le code que tu m'as indiqué cela fonctionne bien si j'ai une feuille à sauvegarder en .pdf.
mais dès que j'en ai au moins 2, ça coince à ce niveau

Code :

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

1
2
3
4
 '   Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop

il ne sort pas de la boucle.
la variable JobPDF.cCountOfPrintjobs vaut 2

je ne serai de retour que lundi.
merci d'avance pour votre aide

[kiki29]

Salut, le code que tu as fourni dans le post 1 fait ce que tu lui a demandé : càd de sauvegarder chaque feuille individuellement
encore un drame du copier/coller car visiblement tu n'as pas compris le code que tu utilises.

Donc dans ton cas reprendre le code Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant pour Excel 2007 en l'adaptant à ton contexte.
Puis une fois le pdf généré, supprimer les pages indésirables : voir ici.