Aide pour enregistrer un fichier excel en pdf

fhoest

XLDnaute Accro

• 28 Novembre 2009

• #2

Re : Aide pour enregistrer un fichier excel en pdf

bonjour,
essai ceci:
Sub test()
MsgBox ActiveWorkbook.Name

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom_du_fichier, Quality:=xlQualityStandard = True

End Sub

A bientot

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 29 Novembre 2009

• #3

Re : Aide pour enregistrer un fichier excel en pdf

Bonjour fhoest et le forum

Ta proposition m'affiche une erreur d'exécution 438 propriété ou méthode non gérée par cet objet.

merci pour votre aide
Cordialement
Christophe

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 29 Novembre 2009

• #4

Re : Aide pour enregistrer un fichier excel en pdf

Bonjour le fil 🙂,
Comment génères-tu ton PDF ? Enregistrer sous avec le complément sur 2007 (code proposé par Fhoest, mais qui nécessite d'être en 2007...), imprimante Adobe PDF, Distiller, PDF Creator, ou autre ?
A + 😎

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 29 Novembre 2009

• #5

Re : Aide pour enregistrer un fichier excel en pdf

Bonjour JNP

Je ne suis pas en 2007mais en 2002, et j'ai téléchargé PDF créator puis qu'il est gratuit pour pouvoir faire cela.

Cordialement
Christophe.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #6

Re : Aide pour enregistrer un fichier excel en pdf

Bonjour,
Avec l'enregistreur de macro actif, sélectionne ton imprimante pdf et récupère le code ainsi créé.
A+
kjin

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 29 Novembre 2009

• #7

Re : Aide pour enregistrer un fichier excel en pdf

Re 🙂,
Je n'ai jamais utilisé PDF Creator, vu que j'utilise Acrobat Pro, mais je sais que le forum regorge de solutions sur la création de PDF avec Creator. Fais une recherche sur "Creator", tu es sûr de trouver ton bonheur.
Bon courage 😎

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 29 Novembre 2009

• #8

Re : Aide pour enregistrer un fichier excel en pdf

Bonjour Kjin, et Re JNP

Voilà la macro qui en résulte :

Sub Macro1()

Application.ActivePrinter = "PDFCreator sur Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne02:", Collate:=True

End Sub

Sauf que l'on me demande toujours d'enregistrer et de choisir le lieu de l'enregistrement.
Pour ma part l'endroit d'enregistrement sera toujours le même, peut on automatiser cela sans qu'il me pose une question ?

Cordialement
Christophe.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #9

Re : Aide pour enregistrer un fichier excel en pdf

Re,
Si tu souhaites automatiser alors une recherche dans la base t'aurait sans doute amené [thread=78238]ici[/thread] par exemple comme te l'a suggéré JNP que je salue 🙂
A+
kjin

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 29 Novembre 2009

• #10

Re : Aide pour enregistrer un fichier excel en pdf

Re,

Tout a fait, seulement aucun code ne fonctionne chez moi certainement qu'il faut adapter à un endroit mais où ??

Sur la macro, Sub PrintToPDF_Early, un message d'erreur :
erreur de compilation, type défini par l'utilisateur non défini et il me renvoi à Dim pdfjob As PDFCreator.clsPDFCreator

Merci pour ton aide si possible
Christophe.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #11

Re : Aide pour enregistrer un fichier excel en pdf

re,
Dans les références, n'as tu pas oublié de cocher PdfCreator ?
A+
kjin

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 29 Novembre 2009

• #12

Re : Aide pour enregistrer un fichier excel en pdf

bonsoir,le fil,tophe
pour le code que j'ai mis met le sur une seule ligne
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom_du_fichier, Quality:=xlQualityStandard = True
a+

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 29 Novembre 2009

• #13

Re : Aide pour enregistrer un fichier excel en pdf

pour plus d'info tape "F1" et dans recherche "pdf" tout simplement

 

Vote positif 0 Vote négatif