XL 2016 Impression dans 1 fichier pdf de plusieurs feuilles et pas un fichier par feuille

D

danielco

XLDnaute Accro

• 17 Novembre 2019

• #2

Bonjour,

Au lieu de :

VB:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Mobile D'urgence 120" & "   " & Sheets("120").Cells(1, 12).Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Mets :

Code:

Sheets.Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Mobile D'urgence 120" & "   " & Sheets("120").Cells(1, 12).Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Note : ça imprime toutes les feuilles.

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

V

VE2LY

XLDnaute Nouveau

• 17 Novembre 2019

• #3

Bonjour Daniel. Merci pour la réponse. Cependant la feuille qui se génère ne comprend que la derniere feuille et non le nombre de feuilles requise par DATA B2 intégré dans un seul fichier. Je poursuis mes recherches. Merci

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 17 Novembre 2019

• #4

Tu le sors d'où, ce DATA!B2 ? De ton chapeau ? Et elles sont où, les 52 feuilles ?

Daniel

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2019

• #5

re
bonsoir

pour imprimer toute les feuilles en un au format pdf c'est

Code:

thisworkbook.ExportAsFixedFormat ............

pour imprimer certaines feuilles

VB:

sheets(array("feuil1","feuil4","feuil10").select
ActiveSheet.ExportAsFixedFormat ............

 

Vote positif 0 Vote négatif

V

VE2LY

XLDnaute Nouveau

• 17 Novembre 2019

• #6

danielco à dit:

Tu le sors d'où, ce DATA!B2 ? De ton chapeau ? Et elles sont où, les 52 feuilles ?

Daniel

Cliquez pour agrandir...

Bien en fait, je croyait possible de mettre chaque feuille généré par la boucle en mémoire volatile et ne faire qu'une impression a la fin de 1 fichier.
Je crois comprendre que je devrai créer les 52 onglet d'abord, imprimer tout les onglets requis dans 1 pdf quitte a supprimer les onglets crées une fois le pdf crée. Tu m a réveillé ;-) je crois que je vais m en sortir de cette manière. Désolé, j'ai peut être manqué de clarté dans l'expression de mon problème. Merci encore

Yves

 

Vote positif 0 Vote négatif

V

VE2LY

XLDnaute Nouveau

• 17 Novembre 2019

• #7

patricktoulon à dit:

re
bonsoir

pour imprimer toute les feuilles en un au format pdf c'est

Code:

thisworkbook.ExportAsFixedFormat ............

pour imprimer certaines feuilles

VB:

sheets(array("feuil1","feuil4","feuil10").select
ActiveSheet.ExportAsFixedFormat ............

Cliquez pour agrandir...

Merci Patrick. Je vais utilisé ton astuce pour l 'impression. Ce qui me manquais c'est que je devait générer les feuilles d'abord.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 17 Novembre 2019

• #8

A ma connaissance, oui, il faut d'abord créer les feuilles.

Daniel

 

Vote positif 0 Vote négatif