Sujet Précédent Sujet Suivant

Depuis excel, nom de fichier ds PDFCreator

Nemetona -  
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.
A voir également:

1 réponse

Réponse 1 / 1
modus57 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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
0