Sub Macro1()
Sheets("Feuil2").Visible = True
Sheets("Feuil2").PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Visible = False
End Sub
Bonsoir,
Je ne connais pas d'autre méthode que de faire afficher, imprimer et masquer à nouveau.
Code:Sub Macro1() Sheets("Feuil2").Visible = True Sheets("Feuil2").PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Feuil2").Visible = False End Sub
G
Pour l'élégance... Ajouter en début de procédure
Application.ScreenUpdating=False