Impression feuilles Excel 2007

Bonjour,

Qui pourrait m'aider, j'ai une classeur excel qui contient un grand nombre de feuilles. Je voudrais n'imprimer que certaines de ces feuilles en une fois. Es-ce possible ?

Merci à tous et toutes.

Bonsoir,

Une idée,

ajouter une feuille "Listes"

Sub ListeFeuilles()
Dim Sh As Worksheet
    With Sheets("Listes")
            .Columns("a").ClearContents
        For Each Sh In Worksheets
            If Sh.Name <> "Listes" Then .Cells(65000, "a").End(xlUp)(2) = Sh.Name
        Next
    End With
End Sub

Sub Imprime()
Dim i%, f$
    With Sheets("Listes")
        '--- imprime les feuilles cochées ---
        For i = 2 To .Range("a" & Rows.Count).End(xlUp).Row
            If Not IsEmpty(.Range("b" & i)) Then    'feuilles cochées
                f = .Range("a" & i)
                With Sheets(f)
                    .PrintPreview                   'aperçu
                    '.PrintOut copies:=1
                End With
            End If
        Next i
    End With
End Sub

tu peux supprimer l'aperçu et réactiver cette ligne

PrintOut copies:=1

Amicalement

Claude

Bonjour et Bienvenue, Dubois

Une autre façon de faire avec un UserForm facilement transportable dans n'importe quel fichier

Il permet non seulement d'imprimer les feuilles sélectionnées, mais aussi de choisir l’imprimante, d'inverser les sélections, de faire des aperçus avant impression, Suppression etc...

Bonne Journée

Bonjour,

Une autre façon.

Tout le code est dans le module de la feuille 'Impr'

On utilise une colonne masquée sur 'Impr' (ne pas supprimer)

Pour sélectionner ou dé-sélectionner une feuille, double-cliquer n'importe où au sein de la ligne de feuille concernée

Ce code devrait permettre le déplacement des feuilles ainsi que leur changement de nom tout en conservant les choix des feuilles à imprimer.

La feuille 'Impr' s'initialise et se met à jour chaque fois qu'elle est sélectionnée.

Edit 12h11: modifier le code pour tenir compte des cas d'un nom de feuille inclus dans un autre: type 'Feuil1'et 'Feuil11"