macro creation pdf

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 donc il te suffit de modifier 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 donc pour un chemin en dur, il suffit de mettre par exemple 😀.
Bon dimanche 😎

Re : macro creation pdf

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

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

Re : macro creation pdf

Re 🙂,
Non, ce serait plutôt à corriger avec mais non testé comme expliqué précédement 🙄...
Bon courage 😎

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

Re : macro creation pdf

Salut,pour cela Google

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;

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 .