Discussion :

[levimik]

Bonjour,
Je cherche à faire une macro pour lancer l'impression de plusieurs feuilles dans un seul fichier. Le problème est que le nombre de feuilles à imprimer est variable mais pas celui des onglets à exclure.
J'ai donc pensé sélectionner toutes les feuilles puis en désélectionner certaines.
J'ai fait un bout de code comme cela:

Sub PrintSelectedSheets()


Sheets.Select
Sheets(Array("Sheet3", "Sheet2", "Sheet4")).Select False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

Mais toutes les feuilles restent sélectionnées...
une idée?

[levimik]

Hello,

Je réponds à ma propre question ahaha, mais je poste la solution si d'autres sont intéressés.
J'ai trouvé la solution en cachant d'abord les feuilles que je ne veux pas, puis en sélectionnant toutes celles qui sont visibles.

Voici la macro

Sub PrintSelectedSheets()

Feuil2.Visible = False
Feuil3.Visible = False
Feuil4.Visible = False

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
ws.Select Replace:=False
End If
Next ws

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Feuil2.Visible = True
Feuil3.Visible = True
Feuil4.Visible = True

End Sub

[Thumb down]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub PrintSelectedSheets()
 
    Dim ws As Worksheet
 
    ' Sélectionne toutes les feuilles
    Sheets.Select
 
    ' Désélectionne les feuilles spécifiques
    For Each ws In Sheets(Array("Sheet3", "Sheet2", "Sheet4"))
        ws.Select False
    Next ws
 
    ' Imprime les feuilles sélectionnées
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
End Sub

[levimik]

Salut Thumbs down,
Merci pour ton retour.
J'avais essayé quelque chose du genre mais ça ne désélectionnait pas les feuilles. Je vais tester.