Imprimer un onglet avec Pdfcreator sur un chemin défini [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
-
Bonjour,

J’utilise le code ci-dessous qui est très simple pour imprimer l’onglet actif au format PDF, et ça marche bien.

Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets("devis").PrintOut Copies:=1, _ ActivePrinter:="PDFCreator sur Ne00:", Collate:=True


Ce que je souhaiterai, c’est pouvoir imposer un chemin de sauvegarde à partir d’un variable : Chemin.

J’ai cherché mais pas trouvé ou compris comment pratiquer.

Merci de votre aide.

Cordialement

5 réponses

Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218
Bonjour,

avec l'impression PDF, vous pouvez utiliser l'instruction:
Chdir Chemin
pour vous positionner sur un repertoire

Si vous avez excel2007 et plus, vous pouvez faire une sauvegarde en PDF sans passer par une impression et la vous pouvez définir un chemin sans ChDir
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

Merci pour la réponse.

a) Où faut-il intégrer le code : Chdir Chemin

Dans mon code pour Pdfcreator :

Code :

Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets("devis").PrintOut Copies:=1, _ ActivePrinter:="PDFCreator sur Ne00:", Collate:=True



b) Je n’utilise pas Excel 2007 mais 2003 et j’ai téléchargé le complément de Microsoft Office 2007 : Enregistrement en PDF dans Microsoft qui semble fonctionner aussi sous 2003.

Lien : http://www.commentcamarche.net/download/telecharger-34055387-complement-de-microsoft-office-2007-enregistrement-en-pdf-dans-microsoft

Mais lorsque je sauvegarde avec le code si dessous il me demande le nom du fichier que je dois entrer manuellement (il semble que pour le chemin pris en compte ce soit celui actif).

Dans ce cas que faut-il faire ?

Code :

 Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft Print to PDF sur Ne03:", Collate:=True



Merci pour les réponses

Cordialement
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

j'ai appliqué les conseils du post1 pour essayer de résoudre mon pb mais ça ne fonctionne pas. pourquoi ?

j'ai vérifier avec une box le chemin, est il est OK.

ChDir (chemin)
MsgBox (" 1-chemin de sauvegarde pour le PDF :" & chemin)

' pour pdf creato
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets("devis").PrintOut copies:=1, ActivePrinter:="PDFCreator sur Ne00:", Collate:=True


Avez vous une idée sur ce qu'il faut faire pour résoudre les points a et b du post 2 ?

Merci d'avance de votre aide.

Cordialement
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218
Bonjour,

En effet, marche pas. Par contre vous n'avez pas dit quel excel vous utilisez ??
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

Merci pour cette réponse qui me rassure.

Dans mon explication du post2, sur les deux solutions que j'ai testés, je signale que je suis sous Excel 2003.

Cordialement
f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218 > mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019

Re,

Ok pour 2003,
regardez ici: je n'ai pas ce qu'il faut pour tester

http://www.developpez.net/forums/d1036272/logiciels/microsoft-office/excel/macros-vba-excel/impression-pdf-creator/
a:
10/02/2011, 02h57 #4
kiki29
kiki29 est déconnecté
Expert éminent sénior

Dans le meme style sur CCM
http://www.commentcamarche.net/forum/affich-30652049-vba-excel-bouton-impression-pdf-et-nom-de-fichier-sur-cellule
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7 > f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020

Re,

J'ai déjà essayé les codes proposés sur ces liens, mais sans résultats, toujours des erreurs où points de blocages, c'est pour cette raison que j'ai édité un code en automatique qui fonctionne et de plus reste simples. il ne me manquait que le paramétrage du chemin dommage...

Je vais poster ma question sur le forum développez.com, comme kiki29 semble maitriser parfaitement les interactions Excel / PDF il pourra peut-être m'aiguiller.

Merci pour ton aide.

Cordialement
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7 > f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020

Re,

j'ai retrouvé dans une discutions de 2012 un cote, que vous aviez donné pour créer des PDF, que j'ai adapté uniquement pour la variable nom_pdf :

Dans mon programme cette variable regroupe le chemin et le nom avec .pdf


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom_pdf _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


En début de mon module j'ai : Option Explicit
J'ai téléchargé l'option complémentaire PDF qui fonctionne sous 2003.
En commande manuelle la fonction PDF marche correctement.

Mon problème :

Au lancement du code, que j'ai incorporé à la suite de mon code de sauvegarde au format XLS, j'ai :

erreur de compilation, variable non définie sur X1TypePDF.

avez vous une piste de recherche ?

Cordialement
f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218 > mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019

Bonjour,

En effet
http://www.commentcamarche.net/forum/affich-24810843-creer-un-pdf-a-l-enregistrement-du-exel#top

Mais cette personne utilisait Excel2010, c'est dans sa demande de depart

Je cherche pour 2003



suite:
site pour Pdf avec 2003:
http://www.excelguru.ca/content.php?161
et
reference a ajouter:
http://www.excelguru.ca/content.php?171-Error-Messages-User-Defined-Type-Not-Defined

je vais recuperer un autre PC ou je pourrai installer un office2003 et je testerai car sur celui que j'uitilse, pas moyen d'ajouter la reference PDFCreator
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218
Re,

PC XP sp3, Office 2003

fait avec le code du site:

site pour Pdf avec 2003:
http://www.excelguru.ca/content.php?161
et
reference a ajouter:
http://www.excelguru.ca/content.php?171-Error-Messages-User-Defined-Type-Not-Defined


fichier xls: http://www.cjoint.com/c/FEjgT7PWH0f

fichier PDF de l'onglet actif: http://www.cjoint.com/c/FEjgUP8Hk2f


A+
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

Merci pour toutes ces infos.

a) Effectivement le code proposé était pour 2010, mais je pensé qu'après le chargement du module complémentaire Office pdf, Excel 2003 devais fonctionner comme 2010 sur cette fonction ?

b) J'avais testé le code que vous proposé dans le fichier xls, mais abandonné car il ne fonctionnait par ou plutôt que je n'arrivais pas à la faire fonctionner:

Erreur de compilation : projet ou bibliothèque introuvable sur : pdfjob As PDFCreator.clsPDFCreator dans le Dim de début ?

j'ai tenté de cocher Pdfcreator dans option/référence mais il me donne : nom de module, de projets ou bibliothèque d'objets déjà utilisé ?

Pas simple pour moi cette histoire.

Cordialement
f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218 > mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019

Re,

Pdfcreator dans option/référence La c'est pareil, suivant le windows, c'est pas gagne. W8 chez moi pas possible de cocher PDFCreator.exe erreur, avec XP il est deja par defaut dans les references, donc pas de probleme pour cocher
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7 > f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020

re,

je suis sous W10 :

a) Si je prend mon fichier de base, j'ai coché Pdfcreator dans option/référence. pas de pb pour faire cette opération.

b) Sur le fichier que vous m'avez envoyé, impossible de cocher Pdfcreator, erreur : nom de module, de projets ou bibliothèque d'objets déjà utilisé ?

c) Le doc que je souhaite imprimé en PDF et une copie d'une page de mon fichier de base qui est renommé, puis sauvegardé en Xls et pour finir en pdf (ce qui ne fonctionne pas actuellement) si je regarde sur ce fichier dans option/référence Pdfcreator n'est pas valide et impossible de le mettre comme au point b)

Comment solutionner la fonctionnalité Pdf ???

Cordialement
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour le forum, Bonjour f894009 et un grand merci,

j’ai remplacé Pdfcreator version 2.2 par la version 1.7.3

An adaptent le code du fichier du post10 avec mes variables, ça marche bien maintenant, moyennant des petites adaptations :

j'ai modifier
Dim pdfjob As PDFCreator.clsPDFCreator

par
Dim pdfjob As Object


puis,
Set pdfjob = New PDFCreator.clsPDFCreator

par
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

et,
Set pdfjob = New PDFCreator.clsPDFCreator

par
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")


J’ai aussi supprimé le code si dessous qui me donné des erreurs, c’est grave où pas ????

'Exit Sub
'EarlyExit:
'Inform user of error, and go to cleanup section
'MsgBox "There was an error encountered. PDFCreator has" & vbCrLf & _
'"has been terminated. Please try again.", _
'vbCritical + vbOKOnly, "Error"
'Resume Cleanup


Cordialement
f894009
Messages postés
14993
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2020
1 218
Bonjour,

c’est grave où pas ???? Non, mais je ne vois pas pourquoi cela vous a fait des erreurs

Vous avez fait preuve de perspicacite, chapeau !!!!