Code en VBA Pour imprimer des feuilles masquées

Bonsoir le fil,

Comment ajouter un code au code ci-dessous pour qu’il imprime les feuilles masquées .

Private Sub imprimer_Click()
Dim i As Integer
UserForm1.Hide

If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
    Exit Sub
Else
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then Sheets(.List(i)).PrintOut copies:=TextBox1.Value
        Next
    End With
    UserForm1.Show
End If
End Sub

Si vous pouviez m'aider, ce serait cool.

Merci par avance.

Salut,

Sans fichier modèle, il est difficile de s'intéresser à ton problème. Je ne sais pas comment est ton UserForm1, comment est la ListBox1, etc.

D'ailleurs je ne suis pas le seul à avoir été découragé, autrement tu aurais déjà reçu de l'aide

Amicalement.

Bonjour,

Une feuille cachée ne peut être imprimée donc, il te faut l'afficher, l'imprimer et la cacher à nouveau. Une piste à adapter :

Sub Imprimer()

    Dim Fe As Worksheet

    Application.ScreenUpdating = False

    For Each Fe In Worksheets

        If Fe.Visible = xlSheetHidden Then

            Fe.Visible = xlSheetVisible
            Fe.PrintOut
            Fe.Visible = xlSheetHidden

        End If

    Next Fe

    Application.ScreenUpdating = False

End Sub

Bonsoir le fil,

Merci pour vos réponses.

Désolé de ne pas avoir joint de fichier excel.

je vous joints le fichier.

Merci.

Re,

Dans la pièce jointe suivante :

Tous les fichiers sont masqués hormis index.

À aucun moment les fichiers masqués ne s’affichent.

Il faut surement adapter les codes ici :

Private Sub UserForm_Initialize()
Dim S As Worksheet
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
If Not S.Name = "Index" Then
ListBox1.AddItem S.Name
End If
Next
TextBox1 = 1
End Sub

Mais je ne sais pas comment faire.

Merci.

Bonjour à tous,

Je remonte ce fil un peu tard…

Après de nombreuse recherches et d’aides, j’ai enfin la solution.

Pour ceux à qui cela intéresse

Je joins un fichier.