Discussion :

[franckm95]

Bonjour à tous ,

J'essaie de créer un document PDF à partir de

Code :

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

Feuil1.Range("A1:D51")

et

Code :

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

Feuil2

Mais je n'arrive pas à associer les 2 deux parties pour l'exporter en pdf avec un code vba.


Merci de bien vouloir me donner un coup de main .

[mfoxy]

Bonjour,

Le plus simple serait de créer une feuille temporaire, contenant une copie de tes différents range, la sauver en pdf et puis la supprimer.

Bat,

[franckm95]

Oui je vois , mais en fait j'ai plusieurs feuilles Excel et il s'agit d'ajouter une feuille à Feuil1.Range("A1:51") selon des conditions .
J'arrive à faire quelque chose avec la Array mais mon PDF affiche entièrement la Feuil1

[MarcelG]

Bonjour à vous, Bonjour au Forum,

(Salut MyKeul )

Il faut agir en 2 temps
Sélectionner les feuilles
Exporter "la" feuille active en PDF

Code :

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

1
2
Worksheets(Array("mawks1", "mawks2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "\tata.pdf"

La méthode ExportAsFixedFormat affecté au tableau conduit à une erreur.
J"aime paaaaaaaaaaas" les "Select" mais je ne vois pas mieux

[franckm95]

Merci beaucoup Marcel.
C'est ce sur quoi j'etais bloqué .
Je veux que sheets("mawks1").range("A1:D51").

Je vous prie de bien vouloir m'aider

[Philippe Tulliez]

Bonjour,
Si vous ne voulez exporter en pdf, que certaines plages d'une feuille, il faut régler cela dans les propriétés Mise en page de chaque feuille. L'exportation en pdf réagit comme une impression

[franckm95]

Merci à tous .

j'ai pu ajouter le Range("A1:D51") au code de Marcel

On a donc

Code :

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

1
2
Worksheets(Array("mawks1", "mawks2")).Select
ActiveSheet.Range("A1:D51").ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "\tata.pdf"