Bonjour à tous,
je recherche une macro vba pour convertir un fichier .xls en pdf.
Mes contraintes, utilisation de PDFMaker et Acrobat Reader 5.0.
Aprés moult recherche sur le net j'ai trouvé ce petit bout de code:
Const ThePath As String = "C:\XLD-PDF\"
Const TheFile As String = "TheTestingFile.PDF"
Sub Test()
CreePDFOnly True
End Sub
Sub CreePDFOnly(Optional PromptForPDFName As Boolean)
If ActiveWorkbook.Saved And Not PromptForPDFName Then
SendKeys "~"
ConvertToPDFA
ElseIf ActiveWorkbook.Saved And PromptForPDFName Then
SendKeys ThePath & TheFile + "~"
ConvertToPDFA
End If
End Sub
Le probléme est que lorsque je "passe" sur la ligne ConvertToPDFA
une message box me dit qu'il n'y a rien à ècrire et excel se bloque (je precise que le workbook actif et bien celui que je veux convertir).
Quelqu'un a il une idée d'ou peut venir cet effet?
Quelqu'un sait il ou je pourrai trouver la doc du PDFmaker.xla?
Ou mieux quelqu'un a t'il une macro qui fonctionne avec PDFMaker?
En vous remerciant d'avance, bonne année à toutes et à tous
Cordialement
COIN!
Je viens de lire avec graaannde (!! ça fait aussi longtemps que je cherche !!!) attention ton message qui explique le lancement de pdfcreator merci beaucoup !
Je rencontre le même problème, en effet j'utilise pdfcreator pour convertir des courriels dans outlook. Pour ce faire, je lance une application word via le vba dans outlook, dans laquelle j'appelle le pdfcreator ... sauf que celui-ci ... ne vient pas !
Aurais-tu une idée qui expliquerait cela ?
Merci !
2xpi.
Impression avec PDFcreator dans WORD Set wordapp = CreateObject("Word.Application") Set wordDoc = wordapp.Documents.Open(strChemin & "\" & NomTransfert_doc) wordapp.Visible = True With wordapp.Selection .TypeParagraph .TypeText Text:=Item.SenderName .TypeParagraph .TypeText Text:=Item.Body .TypeParagraph End With Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") With pdfjob If .cstart("/NoProcessingAtStartup") = False Then MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PrtPDFCreator" Exit Sub End If .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = strChemin .cOption("AutosaveFilename") = NomPDF .cOption("AutosaveFormat") = 0 '0 pour pdf .cClearCache End With ActivePrinter = "PDFCreator" Application.PrintOut copies:=1 'ActiveDocument.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 Withmais j'aurais une question, je n'y connais pas grand chose en programmation et il me faut, en plus de mettre en pdf toutes mes feuilles du classeur, que dans le nom du pdf il y ai en plus la date de la formaion de ce pdf
je ne sais pas si je me suis bien expliquée
en tout cas merci beaucoup, si quelqu'un peut m'aider.... c'est très important
biz
nad