Discussion :

[Flow56]

Bonjour,

J'ai un problème avec la génération d'un fichier pdf à partir d'un fichier Excel. J'utilise PDFCreator pour créer mon pdf. Quand je selectionne mes feuilles (24 feuilles) avec ctrl+clic gauche, pdf creator me crée plusieurs fichiers avec nombre variant de page (entre 1 et 5). Je pense que cela doit un problème de configuration dans ma mise en page ou option d'impression mais je trouve pas.

Est ce que c'est déjà arrivé a quelqu'un et y a t il une solution pour faire un seul fichier.

Merci,

[kiki29]

Salut, à adapter à ton contexte et tester

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
Option Explicit
 
Sub TstPdfCreator_Multi()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
Dim Ar() As String, Cpt As Long, i As Long
 
    Application.ScreenUpdating = False
    sNomPDF = "Essai_Muiti.pdf"
    sCheminPDF = ThisWorkbook.Path & "\"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
 
        '   0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = Sheets(i).Name
            Cpt = Cpt + 1
    Next i
    If Cpt = 0 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
 
    Sheets(Ar).Select
    Sheets(Ar).PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    '   Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    '   Démarrage Imprimante
    JobPDF.cPrinterStop = False
 
    '   Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
    Set JobPDF = Nothing
 
    Worksheets(1).Select
    Application.ScreenUpdating = True
 
    KillPDFCreator
End Sub
 
Private Sub KillPDFCreator()
Dim RetVal As Long
    RetVal = Shell("Taskkill /im PDFCreator.exe /f", 0)
End Sub

Voir Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant
au bas de ceci

ainsi que la PJ au format PDF qui récapitule l'ensemble des posts de ma contribution.

[Flow56]

Bonjour Kiki,

Merci pour ta réponse mais j'ai jamais utilisé le VBA dans Excel.

Dans mes autres fichiers Excel, je réussis à faire des pdf avec plusieurs feuilles. Mais dans ce fichier en particulier cela ne fonctionne pas. Je pense que c'est un problème de config mais je sais pas lequel...

[kiki29]

Re, ne pratiquant pas l'extispicine ce serait l'occasion de débuter
Il suffit de copier le code dans un module Standard et d'affecter un bouton à la procédure TstPdfCreator_Multi

Tutos :
Le VBA qu'est ce que c'est
Les syntaxes de base
formation débutant VBA