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

[VE2LY]

Bonjour le forum. Je reviens vers vous pour solutionner mon problème. J'ai une feuille qui s’incrémente a chaque semaine et qui s'imprime en pdf. J'ai donc 52 fichier pdf mais ce que je voudrais c'est 1 seul fichier contenant les 52 feuilles. Il ne me manque pas grand chose pour réussir mais je tourne en rond malgré mes recherches sur les forum. De ce que j en comprends je doit mettre en "buffer" toute les feuilles et les imprimer en dernier mais c'est le comment qui me fait défaut. Je joint un fichier exemple et vous remercie a l'avance pour votre aide.

 

[danielco]

Bonjour,

Au lieu de :

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

Mets :

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

 

[VE2LY]

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

 

[danielco]

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

Daniel

 

[patricktoulon]

re
bonsoir

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

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

pour imprimer certaines feuilles

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

 

[VE2LY]

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

Daniel

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

 

[VE2LY]

re
bonsoir

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

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

pour imprimer certaines feuilles

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

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.

 

[danielco]

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

Daniel