Impression de feuilles masquées

Bonjour,

Est-il possible d'imprimer des feuilles masquées mais sans les affichées ? J'ai le code suivant :

Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(I)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(I)).PrintOut
Else
End If
Next I
'Application.DisplayAlerts = True
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
'Cmdfermer.
End Sub

Il m'indique l'erreur suivante : [la méthode PrintOut de la classe worksheet a échoué] et la ligne ci-dessous du code ci-dessus est en jaune

Sheets(LbFeuilles.List(I)).PrintOut

Par avance merci pour votre aide.

Bonjour,

Et pourquoi ne la rend tu pas visible juste le temps de l'impression, surtout que cela va aller tellement vite, que tes feuilles ne seront pas lisibles (en plus tu as bien mis Application.screenupdating = false, donc on ne verra pas les changements de pages) ? Car je ne suis pas sûr que tu puisse sans de toutes façons

Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(I)
Application.DisplayAlerts = False

If Sheets(LbFeuilles.List(I)).Visible = False then
   Sheets(LbFeuilles.List(I)).Visible = True
   Sheets(LbFeuilles.List(I)).PrintOut
   Sheets(LbFeuilles.List(I)).Visible = False
Else
   Sheets(LbFeuilles.List(I)).PrintOut
End If

Else
End If
Next I
'Application.DisplayAlerts = True
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
'Cmdfermer.
End Sub

Cordialement,

Merci Zirak mais je ne veux pas que les gens puisses voir les onglets des feuilles si ce n'est que moi. Par contre si ils le souhaitent ils pourront imprimer, dans faire apparaitre les feuilles, le contenu de celles-ci. Je sais que parfois on peut se compliquer la vie mais je trouve qu'avec Excel comme d'autres applications toutes les possibilités peuvent être envisagées.

Concernant ton code, il fonctionne parfaitement et répond totalement à mes attentes.

A bientôt.