Macro pour imprimer une sélection de différentes feuilles

Bonjour,

En cherchant sur le forum, je n'ai pas trouvé de solutions adéquates.

Ma requête est la suivante :

Je dispose d'un fichier excel dans lequel il y a des horaires. Chaque onglet correspond à un travailleur.

Je voudrais créer une macro qui m'imprimerait les horaires de chacun en une fois. Le souci c'est que dans chaque feuille, je n'ai besoin d'imprimer que la zone des cases A1 à P34.

Pourriez-vous m'aider ?

Je vous joins le fichier.

Merci pour votre aide

Bonjour,

Essaye ce code :

Sub Imprimer()
    For Each sh In Worksheets
        If sh.Name <> "Mode d'emploi" Then
            Range("A1:P34").Select
            Selection.PrintOut copies:=1
        End If
    Next sh
End Sub

Bonjour Raja,

J'ai créer un bouton sur mon onglet mode d'emploi auquel j'ai affecté la macro.

Lorsque je clique dessus, il m'imprime uniquement cet onglet avec la bonne plage mais il me l'imprime du nombre d'onglets présents dans le fichier. Si je mets le bouton sur l'onglet Olivier, même chose, il m'imprime bien la bonne plage mais m'imprime du nombre d'onglets dans le fichier.

Ai-je fait une mauvaise manipulation ? Comment puis résoudre le problème ?

Merci

Bonsoir,

Essaye à nouveau avec ce code :

Sub Imprimer()
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> "Mode d'emploi" Then
            Sheets(i).Range("A1:P34").PrintOut copies:=1
        End If
    Next i
End Sub