Depuis excel, nom de fichier ds PDFCreator
Nemetona
-
modus57 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
modus57 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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.
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.
1 réponse
-
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
