imprimer une feuille masquée

[dj.run]

Bonjour à toutes et à tous,

y a t'il une possibilité pour imprimer une feuille ou des feuilles masquées ?

j'ai essayé avec :

If CkBox3.Value = True Then
Application.ScreenUpdating = False
Sheets("SOCOVIA").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("COMATRA").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("S.T.P.A.").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("GEL CENTER").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("G.O.I.").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = True
End If

et aussi :

Sheets(Array("SOCOVIA", "COMATRA", "S.T.P.A.", "GEL CENTER", "G.O.I.")).Activate
Sheets("SOCOVIA").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1

mais les 2 méthodes ne fonctionnent pas .

si les feuilles ne sont pas masquées cela marche mais pas quand elles sont masquées .

quelqu'un ou une peut il ou elle m'aider ?

merci

dj.run

 

[Alain]

Bonjour,


En fait, avant de demander l'impression des feuilles, il faut les rendre visibles :

Sheets("SOCOVIA").Visible=True
Sheets("SOCOVIA").Activate
ActiveSheet.PrintOut
Sheets("SOCOVIA").Visible=False


@+

 

[dj.run]

re à tous

merci alain pour ta solution mais je voudrai garder dans la mesure su possible mes feuilles masquées . et de plus je voudrai ne pas trop alourdir le code .
si il n'y a pas d'autre solution j'envisageais ta solution.

merci quand meme pour ton aide

dj.run

 

[Alain]

Bonsoir,



Si tu regardes bien la macro, tu verras qu'après l'impression, la ligne suivante masque la feuille !!


Bonne soirée.

@+