Depuis excel, nom de fichier ds PDFCreator

Question

Bonjour,
J'aimerai créer une macro dans Excel qui ouvre PDFCreator et qui donne automatiquement un nom de fichier (contenu dans une cellule précise).

Merci de votre aide.

modus57 · Answer

Bonjour Nemetona,

Une piste a partir du code écrit par "Anonyme" et corrigé:

Sub ImpressionFormatPDF()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomCell = ActiveSheet.Range("A1").Value
NomPdf = NomCell & ".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") = ThisWorkbook.Path
        .cOption("AutosaveFilename") = NomPdf
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
    ThisWorkbook.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
End Sub

Depuis excel, nom de fichier ds PDFCreator

1 réponse

Votre réponse

Discussions similaires

Newsletters