CONVERSION FICHIER EN PDF

Messages postés
27
Date d'inscription
vendredi 4 septembre 2009
Statut
Membre
Dernière intervention
25 août 2010
- - Dernière réponse : sebtralalaetph
Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
- 9 sept. 2009 à 15:55
Bonjour
je suis à la recherche d'un code en vba excel pour convertir un fichier xls en pdf.
en vous remerciant par avance
bonne journée à tous

jerome
Afficher la suite 

1 réponse

Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
1
0
Merci
Bonjour,

Il faut installer PDF creator et ajouter la référence à ton projet.

        Dim Export As Excel.Workbook
        Set Export = oExcel.ActiveWorkbook
        Set pdfjob = New PDFCreator.clsPDFCreator
        With pdfjob
            If .cStart("/NoProcessingAtStartup") = False Then
                MsgBox "Can't initialize PDFCreator.", vbCritical + _
                        vbOKOnly, "PrtPDFCreator"
                Exit Sub
            End If
            .cOption("UseAutosave") = 1
            .cOption("UseAutosaveDirectory") = 1
            .cOption("AutosaveDirectory") = Export.Path & ""
            .cOption("AutosaveFilename") = Left(Export.Name, Len(Export.Name) - 4) & ".pdf"
            .cOption("AutosaveFormat") 0    ' 0 PDF
            .cClearCache
        End With
        ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
        Do Until pdfjob.cCountOfPrintjobs = 1
            DoEvents
        Loop
        pdfjob.cPrinterStop = False
        Do Until pdfjob.cCountOfPrintjobs = 0
            DoEvents
        Loop
        pdfjob.cClose
        Set pdfjob = Nothing



Mon Site
Commenter la réponse de sebtralalaetph