Imprimer feuilles masquees

Bonjour

comment allez vous ?

je voudrais pouvoir imprimer des feuilles qui sont masquées

mais je ne sais quel code utilisé

voici le code que j'ai

Private Sub CommandButton7_Click()
Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).PrintOut Copies:=1
End Sub

il permet juste d'imprimer les feuilles lorsqu'elles sont visibles

Merci de bien vouloir m'aider a avancer dans mon projet

Bonjour DorelD

Il faut d'abord les afficher, puis les imprimer, puis les masquer de nouveau

Edit : mauvais code

@+

Merci pour votre reponse mais on me sort un message d'erreur 1004 : impossible de definir la proprieté visible de la classe sheets.

le debogage est au niveau du premier .visible

Merci

Re,

Je n'ai pas testé avant, mais effectivement afficher les feuilles d'un tableau ne se fait pas comme ça

Ce sera mieux comme ça

Private Sub CommandButton7_Click()
  Dim Sht As Worksheet
  Application.ScreenUpdating = False
  For Each Sht In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4"))
    Sht.Visible = xlSheetVisible
    Sht.PrintOut Copies:=1
    Sht.Visible = xlSheetHidden
  Next Sht
  Application.ScreenUpdating = True
End Sub

@+

nice

merci beaucoup