Sujet Précédent Sujet Suivant

Imprimer des feuilles excel sauf certaines

Résolu/Fermé
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 21 avril 2013 à 19:46
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 22 avril 2013 à 15:33
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.
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
22 avril 2013 à 08:42
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
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 22/04/2013 à 09:03
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
Réponse 3 / 3
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
22 avril 2013 à 15:33
Merci de votre aide.
0