Discussion :

[Dorel.D]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
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

[Thautheme]

Bonjour Dorel, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton7_Click()
Dim O As Worksheet
Dim TEST As Boolean
 
For Each O In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4"))
    If O.Visible = False Then TEST = True: O.Visible = True
    O.PrintOut Copies:=1
    If TEST = True Then TEST = False: O.Visible = False
Next O
End Sub

[Dorel.D]

ça me met une erreur, j'ai essayé de faire afficher aussi les feuilles avant et ça marche
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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

merci pour l'attention