imprimer des feuilles selectionnées

[mathieu]

Bonjour tout le monde amateur et les pros du Forum

voilà, j'ai effectué une macro pour selectionner quelques feuilles de fichiers sur plusieurs dossiers .

voilà, mais le problème ,j'arrive à imprimer une seul page en fial , celà enregistre qu'une seule feuille (au lieu des dix feuilles environs) pour gagner en rapiditer .

Je vous envoie la macro pour pouvoir la recfifier ,si possible.

merçi beaucoups .

Sub imprimer()
'
' imprimer Macro
' Macro enregistrée le 9/14/2003 par m
'

'
Windows("CARABINE 10M.xls").Activate
Sheets("classement categorie").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("classement general").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
Windows("Pistolet 25m VITESSE.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
ActiveWindow.SmallScroll Down:=3
Windows("Pistolet 25m STANDART.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
Windows("Pistolet25mPC.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
Windows("PISTOLET 50M.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
Windows("CARABINE 10M.xls").Activate
Windows("Carabine 50m.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
Windows("PISTOLET 10M.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("classement categorie").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[mathieu]

BONSOIR TOUS LE MONDE.

je me suis aperçu que personnes ne comprenaient ce que je voulais ,et pas évident en plus pour une macro .
Donc ,j'ai fouillé et j'ai trouvé cet exemple ,super genial qui fonctionne à merveille ,mais j'aimerais avoir un complément en rajoutant des ouvertures de classeurs (7) si dessus .

Est ce posssible ?maintenant avec le programme que j'ai trouvé .

Merçi beaucoups à l'équipe de XLD. C'est un site super génial ,j'apprends beaucoups de choses sur différents points .

Mathieu