Macro "enregistrer sous PDF"

[jojodanslalune]

Bonsoir,

La fonction d'enregistrement en PDF existe sous Excel 2007. Est-il possible de créer une macro qui publie directement un fichier en format PDF?

Si oui, comment s'y prendre?

 

[MichelXld]

Re : Macro "enregistrer sous PDF"

bonjour


Tu peux utiliser

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Documents and Settings\mimi\dossier\NomClasseur.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Bonne soirée
MichelXld

 

[jojodanslalune]

Re : Macro "enregistrer sous PDF"

Merci beaucoup à toi ! 🙂

 

[jojodanslalune]

Re : Macro "enregistrer sous PDF"

J'ai une question supplémentaire à poser à propos de la publication en Pdf. Le code fournit par Michel fonctionne très bien. Je voudrais simplement qu'une zone bien précise de ma feuille soit publiée en Pdf et non le document entier comme c'est la cas actuellement.

La feuille s'appelle "Agenda" et la plage est comprise de A1 à M42.

 

[MichelXld]

Re : Macro "enregistrer sous PDF"

bonjour

Dans ce cas tu peux utiliser cette adaptation

Worksheets("Agenda").Range("A1:M42").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Documents and Settings\mimi\dossier\RapportTest.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Bonne journée
MichelXld

 

[jojodanslalune]

Re : Macro "enregistrer sous PDF"

Tout simplement parfait ! Merci beaucoup pour ton aide à mes deux questions !

 

[fred65200]

Re : Macro "enregistrer sous PDF"

jojodanslalune si tu avais utilisé l'enregistreur de macro, tu aurais pu te répondre tout seul


salutations

 

[jojodanslalune]

Re : Macro "enregistrer sous PDF"

Je l'ai fait... cela ne fonctionnait pas.

 

[alucard_xs]

Re : Macro "enregistrer sous PDF"

salut,

moi j'ai mis ceci

private Sub greg_Click()


ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=“sales.pdf” Quality:=xlQualityStandard DisplayFileAfterPublish:=True


End Sub

qd je clique sur un bouton mais il me marque une erreur dans cette ligne ...

 

[jeanpierre]

Re : Macro "enregistrer sous PDF"

Magasin fermé............

Bien de faire de la recherche, mais revenir sur le fil d'origine pour situer la chose.....

Ah, les jeunes..............