Selection toutes les feuilles pour PDF Automatique

[sokour]

Bonjour,

Je suiss bloqué sur un code qui me permettrait de selectionner toutes les feuilles du classeur et ensuite creer un pdf automatique, sachant que j'arrive a crreer un pdf automatique pour une feuille mais je n'arrive pas lorsqu'il faut plusieurs feuilles pour le PDF.

Voici la partie du code concernée :

Sheet1.Activate
Sheet1.PrintOut copies:=1, preview:=False, ActivePrinter:="Adobe PDF on Ne01", printtofile:=True, collate:=True, prtofilename:=PSFileName

Comment selectionner plusieurs feuilles au lieu de Sheet1 ?

Merci de votre aide

 

[JNP]

Re : Selection toutes les feuilles pour PDF Automatique

Bonsoir Sokour ,
Tu peux utiliser

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintOut

Bonne soirée

 

[sokour]

Re : Selection toutes les feuilles pour PDF Automatique

Merci beaucoup, cela marche parfaitement