VBA - Conversion d'un tableau "paysage" en pdf "portrait"

Version imprimable

03/06/2016, 15h47
Starnice

VBA - Conversion d'un tableau "paysage" en pdf "portrait"

Bonjour tout le monde,

Dans le cadre de mon travail, j'ai créé une macro permettant de créer automatiquement un pdf par onglet d'un fichier dont chaque onglet contient un tableau.
Ces tableaux sont prévus pour être affichés / imprimés en mode paysage, ce qui fait que les pdfs créés sont aussi dans ce format.

Depuis peu, un logiciel est utilisé pour la création de courrier à partir des pdf.

Le soucis est qu'il faut que les pdf soient en mode portrait.

Je cherche donc à modifier ma macro pour qu'au moment de la création de chaque pdf, une sorte de rotation horaire de ma feuille Excel se fasse pour qu'en portrait, le tableau sorte intégralement sans être rédui ou modifié.

Mais je bloque sur ce problème, c'est pour cela que moi voici à demander vos avis!

Merci d'avance!

Salut, j'ai cela pour des PDFs déjà générés :

PDFCreator Rotation d'une Page
Acrobat Rotation d'une Page ( pas le Reader )

Sinon via l'enregistreur de macros, qui génèrera un code à optimiser à la main

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub Portrait()
Dim sNom As String
    sNom = ThisWorkbook.Path & "\" & "Paysage.pdf"
    ActiveSheet.PageSetup.Orientation = xlPortrait
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    sNom, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
End Sub
 
Sub Paysage()
Dim sNom As String
    sNom = ThisWorkbook.Path & "\" & "Paysage.pdf"
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    sNom, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
End Sub

03/06/2016, 19h46
Starnice

Déjà, merci pour ta réponse!

Je ne suis pas au travail, donc je ne testerai que demain, mais peut-être qu'en utilisant ta deuxième macro (qui est comme la mienne) pour enregistrer en pdf, puis en utilisant ta macro indiquée en suivant le lien, qui permettrait de faire une rotation d'une page d'un pdf, j'arriverai à mes fins.

Je te tiens au courant si tout se passe comme je le pense (ou si il y a un couack)!
08/06/2016, 10h39
kiki29

Salut, il y a aussi PDFArchitect et autres ( pas testé )