Fichier PDF à partir d'une feuille Excel

Bonjour,

Pour créer un PDF, je voudrai simplifier l'utilisation de mon classeur excel en remplaçant la manipulation manuelle d'imprimer en spécifiant l'imprimante "PDF Creator" etc..

en créant directement le PDF par une macro (dans le même répertoire avec le nom de la feuille Excel)

est-ce envisageable et fiable ? Jusqu'où peut-on aller dans l'automatisation ?

Bonjour,

Cette ligne sauvegarde le classeur courant dans le répertoire courant, et conserve le nom du classeur :

Code:

---

1 2	ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Name & ".pdf", Quality:=xlQualityStandard

---

Bonne fin de journée

Merci, c'est une étape, mais comment lancer le PDF sur la zone d'impression définie dans la feuille Excel à partir de la macro ?

Citation:

---

Envoyé par retraite83

la manipulation manuelle d'imprimer en spécifiant l'imprimante "PDF Creator" etc..

---

Avec le version 2016 (et quelques versions précédentes), il n'est plus indispensable d'avoir PDF Creator pour générer un PDF.
On peut directement exporter du PDF avec Excel.

Fichier > Exporter > Créer un document PDF/XPS > Créer PDF/XPS > Publier

Faire ça avec l'enregistreur de macro actif te permet d'avoir 90% du code tout cuit.

Citation:

---

Envoyé par retraite83

Merci, c'est une étape, mais comment lancer le PDF sur la zone d'impression définie dans la feuille Excel à partir de la macro ?

---

Si tu avais testé le code de Wololol, tu saurais que c'est ce qu'il fait (au plus, il sera nécessaire de remplacer ThisWorkbook par ActiveWorksheet).
https://msdn.microsoft.com/fr-fr/VBA...t-method-excel

Salut, bis repetita placent : plus exactement depuis Office 2007 SP2, le PDF est intégré en natif dans Office et donc PDFCreator ou autre n'est utile que pour manipuler les PDFs

Merci à tous c'est parfait, j'ai un peu galérer pour générer le bon nom de fichier mais c'est ok, voici ce que j'ai fait (avec votre aide !)

Code:

---

1 2 3

Sheets("PDF F").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Nom & ".pdf", Quality:=xlQualityStandard

---

avec

Code:

---

1 2 3 4

Dim Nom As String Nom = ActiveWorkbook.Name Nom = Left(Nom, Len(Nom) - 5

---

Peut être pas le mieux, mais j'ai pas réussi mieux pour enlever l'extension .xlsm dans le nom du fichier PDF

Peut être aussi une dernière question sur ce sujet :

Quand j'ouvre le PDF généré les pages sont en 132%, y-a-t-il un moyen de les ouvrir automatiquement en 50% ?

Citation:

---

Envoyé par retraite83

Code:

---

1 2 3

Dim Nom As String Nom = ActiveWorkbook.Name Nom = Left(Nom, Len(Nom) - 5

---

Peut être pas le mieux, mais j'ai pas réussi mieux pour enlever l'extension .xlsm dans le nom du fichier PDF

---

Autre solution pour supprimer n'importe quelle extension :

Code:

---

1 2 3

Dim Nom As String Nom = ActiveWorkbook.Name Nom = Left(Nom, InStrRev(Nom, ".") - 1)

---

Salut, pour le nom via FSO et GetBaseName()

Sinon suivant le contexte :

• Acrobat : Visualisation via Acrobat d'un PDF
• Acrobat Reader : Visualisation d'un fichier PDF dans une UserForm