Imprimer un onglet avec Pdfcreator sur un chemin défini

Résolu/Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 6 mai 2016 à 18:04
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 10 mai 2016 à 11:51
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
A voir également:

5 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
7 mai 2016 à 09:06
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
7 mai 2016 à 11:50
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
8 mai 2016 à 14:22
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 mai 2016 à 16:21
Bonjour,

En effet, marche pas. Par contre vous n'avez pas dit quel excel vous utilisez ??
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
Modifié par mijean94 le 8/05/2016 à 16:45
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
Modifié par f894009 le 8/05/2016 à 17:04
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
8 mai 2016 à 17:29
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
8 mai 2016 à 23:54
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
Modifié par f894009 le 9/05/2016 à 07:49
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 9/05/2016 à 08:48
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+
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
9 mai 2016 à 09:44
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
9 mai 2016 à 09:50
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
9 mai 2016 à 10:12
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
10 mai 2016 à 11:16
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 mai 2016 à 11:51
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 !!!!
0