Imprimer un onglet avec Pdfcreator sur un chemin défini
Résolu
mijean94
Messages postés
413
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J’utilise le code ci-dessous qui est très simple pour imprimer l’onglet actif au format PDF, et ça marche bien.
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
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
-
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-
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 : https://www.commentcamarche.net/telecharger/bureautique/6313-save-as-pdf-pour-microsoft-office-2007/
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
-
-
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 -
Bonjour,
En effet, marche pas. Par contre vous n'avez pas dit quel excel vous utilisez ??-
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- Re,
Ok pour 2003,
regardez ici: je n'ai pas ce qu'il faut pour tester
https://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
https://forums.commentcamarche.net/forum/affich-30652049-vba-excel-bouton-impression-pdf-et-nom-de-fichier-sur-cellule - 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 - 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 - Bonjour,
En effet
https://forums.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:
https://www.excelguru.ca/content.php?161
et
reference a ajouter:
https://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
-
-
Re,
PC XP sp3, Office 2003
fait avec le code du site:
site pour Pdf avec 2003:
https://www.excelguru.ca/content.php?161
et
reference a ajouter:
https://www.excelguru.ca/content.php?171-Error-Messages-User-Defined-Type-Not-Defined
fichier xls: https://www.cjoint.com/c/FEjgT7PWH0f
fichier PDF de l'onglet actif: https://www.cjoint.com/c/FEjgUP8Hk2f
A+-
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- 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 - 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
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 modifierDim pdfjob As PDFCreator.clsPDFCreator
parDim pdfjob As Object
puis,Set pdfjob = New PDFCreator.clsPDFCreator
parSet pdfjob = CreateObject("PDFCreator.clsPDFCreator")
et,Set pdfjob = New PDFCreator.clsPDFCreator
parSet 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
