Discussion :

[shakapouet]

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

[kiki29]

Salut, Excel 2010 intègre en natif le format PDF, donc pas besoin de PDFCreator ou d'Acrobat. Il y avait , jadis, sous PDFCreator un problème si la résolution était différente dans les mises en page des différentes pages.

Voir en bas du post#1.

[shakapouet]

Oui il l'intègre en natif, mais le but de mon projet est que je puisse sortir un rapport au format PDF pour les personnes qui utiliserons l'outil. Ces personnes ne doivent pas eux mêmes faire la conversion. L'ajout du rapport au format PDF doit ce faire dans la suite de l'exécution de ma macro.

Tu me conseillerais de passer une autre procédure ou de garder celle que j'utilise pour le moment. Je n'ai pas trouver le problème de résolution sous PDF créator dans le lien que tu m'as fournis.

Si tu pouvais me donner quelque conseil pour avancer sur ce problème.

Ps : Ton post que tu m'as fournis est une vrai mine d'or. Merci pour ce super boulot.

[kiki29]

Re, visiblement tu n'as pas compris le contenu du lien que je t'ai fourni, il permet d'enregistrer ( en l'adaptant à ton contexte ) les feuilles au format Pdf sans passer par PDFCreator. Il n'est question que du format natif Pdf d'excel.Tu n'as dans ton cas aucun intérêt à utiliser PDFCreator totalement inutile pour toi.