Imprimer des feuilles excel sauf certaines

Résolu/Fermé
Signaler
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Bonjour,

je souhaite imprimer tous les onglets de mon fichier excel sauf 5 d'entre eux. Comment écrire le code pour que la macro génère cette commande onglet par onglet?
Merci d'avance de votre aide. Si ma question existe déjà, merci de m'orienter svp.

3 réponses

Messages postés
16197
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2022
1 580
Bonjour,

Sub Macro1()
    'aide excel: adapter l'imprimante
    Sheets(Array("Feuil1", "Feuil3", "Feuil4")).Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
End Sub


ou

'Sunday, May 27, 2007
'Print Multiple; Sheets; using; VBA
'VBA to Select Multiple Sheets
Sub Print_Selected_Sheets()

    ' Remove Multiple Selections
    ActiveWorkbook.Sheets(1).Select

    ' Select Multiple Sheets - Optional False is to extend the current selection to include
    'any previously selected objectsand the specified object
    ActiveWorkbook.Sheets(1).Select False
    ActiveWorkbook.Sheets(2).Select True
    ActiveWorkbook.Sheets(4).Select False

    ' -----------------------------------------------------------
    ' Coded by Shasur for http://vbadud.blogspot.com
    ' -----------------------------------------------------------
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

    ' Remove Multiple Selections
    ActiveWorkbook.Sheets(1).Select

End Sub
0
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 677
Bonjour,

Ce code, à adapter, devrait te convenir.

Sub Imprime() 
Dim Feuille As Worksheet, FeuillesNonImprimees(), ImpOk 

FeuillesNonImprimees = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5") 'A ADAPTER 

For Each Feuille In ThisWorkbook.Worksheets 
    ImpOk = Application.Match(Feuille.Name, FeuillesNonImprimees, 0) 
    If IsError(ImpOk) Then 
        With Feuille 
            .PrintOut 
        End With 
    End If 
Next Feuille 
End Sub


Cordialement,
Franck P
0
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
4
Merci de votre aide.
0