[XL-2003] Enregistrer en PDF [Résolu]

[hunteshiva]

Bonjour,

je cherche a mettre un fichier excel sous forme de PDF comme l'indique le titre
l'idée c'est que j'ai une feuille de type xls, avec plusieurs onglets.
Je veut enregister que le premier onglet en PDF...

j'ai bien trouvé quelques solution tel que PDF Creator, et autre mais cela ne me parait pas très simple...
Il n'existerait rien sous 2003 qui ne nécéssite pas de logiciel?

[kiki29]

Salut,la réponse est non, Office 2007 intègre en natif dans son SP2 le format PDF
à tout hasard voir http://www.developpez.net/forums/d43...bat-distiller/

[hunteshiva]

C'est dommage....

j'avais bien mon petit bout de code ous le coude pret a faire feux au cas ou

Code :

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
Option Explicit
 
Sub TstPdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
 
    sNomPDF = "Essai.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
 
    Sheets("Feuil2").PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
    Set JobPDF = Nothing
End Sub

Merci pour ta réponse "kiki29"

PS: Joli post