Bonjour,

J'ai développé un outil d'aide à la décision, et je souhaite à la fin de ma procédure convertir mes feuilles Excel en PDF. Tous fonctionne bien, mais j'ai un soucis sur deux feuilles.

En effet, j'ai une de mes feuilles qui est assez large et au format portrait les informations s'affiche bien mais ça reste petit. J'ai donc convertis la feuille en question au format paysage. Le problème même en format paysage, la convertion PDF ce fait bien en PDF mais la taille de mon tableau garde les mêmes proportions de taille qu'au format portrait.

Voici la fonction que j'utilise pour convertir en PDF :
Peut être y a t il des propriétés que je n'utilise pas.

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
 
Private Sub ToPdf(filiere, transporteur_nom, ledir, fichier_model, sDossier)
 
    timestamp = Format(Now, "dd-mm-yyyy-hhnnssms")
 
    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
    NomPdf = "azert- " & zertyu & " - " & timestamp & ".pdf"
 
        With pdfjob
            If .cstart("/NoProcessingAtStartup") = False Then
                MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
                Exit Sub
            End If
            .cOption("UseAutosave") = 1
            .cOption("UseAutisaveDirectory") = 1
            .cOption("AutosaveDirectory") = sDossier
            .cOption("AutosaveFilename") = NomPdf
            .cOption("AutosaveFormat") = 0
            .cClearCache
        End With
 
 
    ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
 
    pdfjob.cPrinterStop = False
 
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    With pdfjob
        .cDefaultprinter = DefaultPrinter
        .cClearCache
        .cClose
    End With
 
    Set pdfjob = Nothing
 
    tmp = 1
 
End Sub
Cordialement