Discussion :

[Eruil]

Bonjour

J'ai un fichier excel comportant 3 feuilles et j'aimerais en VBA créer un fichier PDF avec 3 pages : une feuille par page. Pour l'instant j'arrive à créer un fichier PDF d'une page avec ma première feuille. mais je ne sais pas comment aller plus loin. Merci de votre aide.

Voici mon code pour crée mon fichier d'une page :

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
 
Sheets("feuil1").PageSetup.PrintArea = Range("A1", ActiveCell.SpecialCells(xlLastCell)).Address
    Sheets("Suivi des délais Forfait").PageSetup.CenterHorizontally = True
    Sheets("Suivi des délais Forfait").PageSetup.CenterVertically = False
 
    Dim PDFCreator1 As PDFCreator.clsPDFCreator
    Set PDFCreator1 = New PDFCreator.clsPDFCreator
 
    If PDFCreator1.cStart("/NoProcessingAtStartup") = False Then
        'creation d'un fichier de log
    End If
 
    Dim nomfichier, corpsmessage As String
    nomfichier = "delaisS" & Format(Date - 4, "ww") & ".pdf"
    With PDFCreator1
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutoSaveDirectory") = "c:\GEC\delais"
        .cOption("AutoSaveFilename") = nomfichier
        .cOption("AutosaveFormat") = 0 ' 0 = PDF
        .cClearCache
        .cDefaultPrinter = "PDFCreator"
    End With
    ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
    Do Until PDFCreator1.cCountOfPrintjobs = 1
        DoEvents
        Sleep 1000
    Loop
    PDFCreator1.cPrinterStop = False
    Do Until PDFCreator1.cCountOfPrintjobs < 1
        DoEvents
        Sleep 1000
    Loop

ça ça marche très bien et j'ai essayé de faire pareil mais simplement en sélectionnant les 3 feuilles (sheets.select) au début mais ça ne fonctionne pas.

Une idée ?

[Eruil]

Pas d'idée ?? Me dites pas que je vais être obligé de créer 3 fichier PDF ... ce serait quand même ballot.

[Eruil]

Petite amélioration : en remplaçant simplement

Code :

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

ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

par

Code :

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

thisWorkBook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

j'obtiens un PDF de deux pages contenant la feuille 2 et la feuille 3 ... Mais POURQUOI pas la feuille 1 ????

[Eruil]

Bien que depuis le début je parle tout seul, j'ai réussi à règler mon problème débile de manière débile :

J'ai créer un nouveau classeur et j'ai tout copié à l'intérieur. Il devait y avoir dans l'ancien classeur une propriété quelconque qui avait du etre modifiée mais impossible de trouver laquelle.