Discussion :

[amerex]

Bonjour!!
J'aimerais savoir quelque chose...

Je veux que lorsque je clique sur le bouton "Imprimer les fiches", que les feuilles "Fiche1", "Fiche2", etc... s'impriment. MAIS, sans imprimer les feuilles "ACCUEIL", "Settings", etc...........

Est-ce possible?

Merci!

[kiki29]

Salut , en utilisant le macro recorder tu aurais un début de réponse

Code :

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

1
2
3
4
5
6
    .....
    Sheets(Array("Feuil1", "Feuil2", "Feuil8", "Feuil10", "Feuil15")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    .....
    Sheets("Feuil1").Select
    .....

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
17
18
19
20
21
22
23
24
25
Option Explicit
 
Sub Tst()
Dim i As Long, Cpt As Long
Dim Ar() As String
 
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count
        If Sheets(i).Name <> "ACCUEIL" And _
           Sheets(i).Name <> "Settings" And _
           ......... Then
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = Sheets(i).Name
            Cpt = Cpt + 1
        End If
    Next i
    If Cpt = 0 Then Exit Sub
 
    Application.ScreenUpdating = False
    Sheets(Ar).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    Application.ScreenUpdating = True
    Sheets("Feuil1").Select
End Sub