Discussion :

[retraite83]

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 ?

[Wololol]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne fin de journée

[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 ?

[Menhir]

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.

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

[kiki29]

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

[retraite83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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% ?

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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