Discussion :

[Petit Rasta]

Bonjour,

J'aimerais imprimer en PDF une feuille Excel automatiquement lors de l'appuie sur un bouton.
J'avais déjà mis en place une solution similaire avec Access.
Je voulais réutiliser le même code mais je me heurte à une difficulté :
La méthide DoCmd.OpenForm n'est pas utilisable pour les feuilles Excel.
Voici mon code :

Code :

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

1
2
3
4
5
6
' Imprimer le formulaire
    DoCmd.Open strReportName, acPreview, , strWhere, , acHidden
    Sheets(strReportName).Printer.Orientation = acPRORLandscape
    Sheets(strReportName).Printer.ColorMode = acPRCMColor
    DoCmd.PrintOut acPages, 1, 1
    .cPrinterStop = False

Ici l'impression se fait de manière invisible pour l'utilisateur.
J'aimerais reproduire le même schéma pour ma feuille Excel.

Code :

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

WorkSheets("nomFeuille').PrintOut

ne peut pas prendre d'argument acHidden ?

[kiki29]

Salut,sous Excel 2007,qqch comme ceci ,tu aurais pu l'obtenir via l'enregistreur de macros

Code :

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

1
2
3
4
5
    sNomFichierPDF = ThisWorkbook.Path & "\" & "Essai.pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

[amnorian]

De plus les fonction commençant par "ac" ne sont pas spécifique access ?

[Petit Rasta]

Pour info, j'ai modifié les propriétés de PDF Creator : je l'ai mis en enregistrement automatique.
Merci pour vos réponses et je garde sous le coude ce petit code VB

[kiki29]

Salut,pourquoi utiliser PDFCreator puisque Excel 2007 SP2 intégre en natif le format PDF ?