VBA macro pour convertir en pdf Fermé

Question

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!

Loulou · Accepted Answer

Pour ceux qui comme moi ont galéré avant de trouver la réponse, voilà un code qui fonctionne avec PdfCreator: 

Sub ToPdf() 

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") 
NomExcel = ThisWorkbook.Name 
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".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

WhiteFang · Answer

;-)En fait, ce que tu dois lire, dans ce bout de code, c'est qu'il fait appel à un programme, ou un appilcation complémentaire ("ConvertToPDFA"), et que celui-ci, apparamment, a un blème....Un truc qu'il faut savoir, c'est que quand tu installes une appli, celle-ci va inscrire ses bibliothèque de routines dans le registre, en l'occurence, Acrobat Reader... Le blème, c'est que Reader, c'est clair, comme message !! ;-))))) C'est pas Maker !! Acrobat Reader te permet de lire, pas de créer !Si tu veux disposer des biblio pour créer, il te faut Acrobat TOUT COURT, pas Reader... Où alors tu utilises des trucs qui sortent des chemins Adobe... PDF Maker est une fonction d'Acrobat, pas du Reader qui n'est  fait que pour lire... Sinon, il existe aussi des trucs pour créer au format PDF, mais je ne le garanti pas à 100%...Bref, si tu veux faire des PDF en bonne et due forme, vas voir plutôt du coté d'Acrobat... Et c'est tellement plus simple...Wild and Free

vince · Answer

Bj,J'ai eu le meme pb.Simplement il ne faut pas oublier de rajouter les librairies correspondantes dans ta feuille xl.Pour cela tu vas dans Ms VBA et tu ouvres "OUTILS / PREFERENCES" et la tu rajoutes "PDFMaker" ou "Distiller " ..SltsVince

snejena · Answer

en mettrant run.application("convertoPDF") ça marche

lallo · Answer

Bonjour,

je cherche une macro qui me permettrait de créer, à partir d1 fichier excel, un pdf (Pdf Creator),
Le nom du fichier pdf serait une concaténation d'une cellule A1;"-";B1 de la feuille imprimée.
Le fichier pdf serait à envoyer toujours dans le même repertoire ex : "dossier1"

Je souhaite que le fichier pdf reste ouvert pour visualisation et soit fermé manuellement.

Est-ce possible ?

Merci d'avance pour toute indication

Ed · Answer

Voici mon problème

j'ai un dossier d'environ 400pdf qui portent déaj un nom

mon but est grace à une macro de chager le nom de ces 400 fichier automatiquement en fonction de 2 variables qui se trouve dans mon classeur excel

par ex

un fichier se nomme "\1234_docu.pdf"
et moi j'aimerais le renommer "1234_document.pdf"

1234 et document étant variables pour mes 400 fichiers?

Qu'en pensez vous??

VBA macro pour convertir en pdf

6 réponses

Discussions similaires