nat54 | résolu
Code :
- Sub impression()
- '
- ' impression Macro
- ' Macro enregistrée le 17/08/2005 par alidor
- '
- '
- Sheets(Array("p1 TdB Sommaire", "p2-3 TdB Suivi engagements", "p4 TdB par statut", "p5-8 TdB Suivi CA", "p9 TdB Section 1", "p10 TdB Pers. titulaire", "p11 TdB Analyse budgétaire", "p12 TdB Analyse par équipe" )).Select
- ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
- End Sub
|
|