macro creation pdf

[greg954]

Bonjour a tous

j'ai trouver ce code pour imprimer un fichier pdf:

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


1-J'aimerai modifier cette macro pour que le nom du pdf soit la valeur de la cellule a1 et a2
2-serait possible d'indiquer le repertoire d'enregistrement du fichier pdf dans la macro

merci de votre aide
Greg

 

[JNP]

Re : macro creation pdf

Bonjour Greg954 🙂,
Je n'ai pas PDFCreator pour tester, mais c'est marrant, il me semblait que tu ne pouvais ni choisir le nom du fichier, ni définir l'emplacement du fichier avec 😕...
Mais bon, si ta macro fonctionne, c'est le principal 😉...
Le nom du fichier est défini dans la ligne

NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"

donc il te suffit de modifier

NomPdf = Range("A1") & Range("A2") & ".pdf"

mais attention, il faut qu'il n'y ait pas de caractère interdit dans les celllules A1 et A2 😱...
Pour le chemin, il est défini ici

.cOption("AutosaveDirectory") = ThisWorkbook.Path

donc pour un chemin en dur, il suffit de mettre

.cOption("AutosaveDirectory") = "C:\temp\test"

par exemple 😀.
Bon dimanche 😎

 

[greg954]

Re : macro creation pdf

Merci beaucoup, ca fonctionne super bien.
Bon dimanche a toi

 

[annov]

Re : macro creation pdf

Bonjour,
Je me suis permis de copier les lignes du code de greg car très interressant , mais comment définir uniquement l'impression de la feuille 1 par exemple .Est-ce ce sur la ligne "NomExcel = ThisWorkbook.Name"("feuill1") ?
malgré plusieurs essais je suis sec .

Merci

 

[JNP]

Re : macro creation pdf

Re 🙂,
Non, ce serait plutôt

ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"

à corriger avec

ThisWorkbook.Sheets("Feuil1").PrintOut copies:=1, ActivePrinter:="PDFCreator"

mais non testé comme expliqué précédement 🙄...
Bon courage 😎

 

[annov]

Re : macro creation pdf

Bonsoir,

Je vais testé ça;Sinon j'ai éssayé avec pdf créator après l'avoir installé ça marche nickel .Après j'ai voulu éssayer avec cute pdf en modifiant ( voir ci dessous en rouge) mais là j'ai un message d'erreur VB me disant que les licenses sont introuvables .
J'ai surement fais une erreur ? Donc je vais chercher encore .
mais si vous avez une piste je suis preneur

Bonne soirée

Sub ToPdf()

Set pdfjob = CreateObject("CutePDFWriter.clfCutePDFWriter")
NomExcel = ThisWorkbook.Name
NomPdf = Range(" A17") & Range("B17") & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize CutePDFWriter.", vbCritical + vbOKOnly, "CutePDFWriter"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = "C:\Documents and Settings\HP_Propriétaire.NOM-\Mes documents\pdf"
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="CutePDFWriter"
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

 

[kiki29]

Re : macro creation pdf

Salut,pour cela Google

 

[annov]

Re : macro creation pdf

Bonjour,
Merci pour l'info , mais pour ma part c'est pas concluant (il faut dire que coté vb j'ai encore beaucoup à apprendre) . mais je ne me décourage pas .

Salut;

 

[annov]

Re : macro creation pdf

Bonsoir ,
Je suis de retour sur le forum car j'ai quelques problèmes lors de l'éxecution de la macro de mon fichier que j'utilise sur Excel 2000.2003.2007 (en fonction des postes que j'utilise) . Elle fonctionne correctement sur xl 2000 mais bug une fois sur 2 lorsque je l'utilise en 2003 et 2007.
Je ne vois pas trop ce qui bug .pourriez vous prendre quelques minutes pour regarder celà et éventuellemnt me donner quelques pistes ;
Ci-joint le fichier simplifié pour exemple.

Merci de votre attention .