Zone d'impression

Bonjour tout le monde, j'ai un soucis avec mon doc excel.

En fait, j'aimerais avoir 2 zones d'impressions

1ere- La première page, selon une certaine plage, soit de A à L jusqu'en bas!

2ieme zone - Tout les autres feuilles, (donc pas la première) de A à K, mais en dimension : 11x17.

J'aimerais que l'utilisateur puisse choisir entre les 2 zones d'impression.

Bref, je ne sais pas si nous devons faire un macro pour arriver à cette fin,

Merci de votre aide

Salut Jimb ,

Trois choses ,

D'une j'ai pas d'imprimante dispo je n'ai pas pus vérifier le travail =)

Deux la macro a été faite avec l'enregistreur de macro (excel 2010) , j'ai vu que tu avais 2007 enfin cela ne veut pas dire que sa ne passera pas à tester

Trois le format à partir de la deuxième feuille , je n'ais pas trouver de format 11x17 donc....

Sub Macro1()

    Sheets("Nom de ta premiere feuille").Select
    Range("A1:L65000").Select
    'Nom de la feuille de classeur premiere page
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

    Sheets("Nom de ta deuxieme feuille").Select
    'Nom de la deuxieme feuille fais des copier coller de la  seconde partie pour les autres
    Range("A1:K65000").Select
    'Plage
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

A modifier selon tes souhaits

Cordialement

Dois-je mettre le nom de l'onglet pour chaque feuille ? Parce que j'en ai 200!

Mercii!

Re

Envoie ton fichier stp , je regarde si on peut faire autrement pendant ce temps la

Cordialement

Je ne peux pas le mettre puisqu'il est trop"gros". (2 mo) Et le site n'accepte pas mon programme de compression "Winzip".

Re

Sub Macro1()

    Sheets("feuil1").Select
    'Nom de la feuille de classeur premiere page
    Range("A1:L65000").Select
    'Plage
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

        liste = Array("feuil2", "feuil3")

'Le nom de tes 200 feuilles

    Sheets(liste).Select
    'Nom de la deuxieme feuille fais des copier coller de la  seconde partie pour les autres
   Range("A1:K65000").Select
    'Plage
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

Une aide pour eviter de te faire 200 cents copier coller , après je crois que tu va devoir te taper les deux cents noms d'onglets a la main

PS: Je serais toi , je ferais un test sur deux feuille car je n'ais pas vu le résultat sorti imprimante , Pour les histoires de format j'ai un format imprimante 12.7x17.78 sa irais ?

J'ai réussit à coder quelque chose, en fait la seule chose qui ne fonctionne pas est mon «exclusions» les 2 pages "liste d'équipements" et "cfm". Pour tout mes autres pages cela marche, donc il faudrait juste enlever ces 2 pages, je pourrais les faire manuellement.

Voici mon code ;

Option Explicit

Sub Set_Print_Area()

    Dim ws As Worksheet

    Application.ScreenUpdating = False

    With ThisWorkbook
        For Each ws In .Worksheets
            Select Case ws.Name
            Case "liste d'équipements", "cfm"
                 'ne rien faire - exclure ces feuilles

            Case Else
                With ws
                    .PageSetup.PrintArea = "" 'efface les print zone déjà définis
                    .PageSetup.PrintArea = .Range("A1:k45").Address
                End With
            End Select
        Next ws
    End With

    Application.ScreenUpdating = True

End Sub

Je lance ta procédure rien n'arrive tu as tester toi aussi ?

c'est ma macro dedans

Mon macro ne sélectionne seulement que les zones d'impression, par la suite je vais dans le menu -> imprimier -> classeur entier, c'est pas bien grave si mes 2 feuilles sont dedans, le seul problème c'est qu'ils ne doivent pas avoir la même zone d'impression.

Pourquoi deux feuilles ?

Tu ne voulais pas exclure la première et ensuite tout le reste ?

Dans ce cas tu lance un bouton avec la première feuille et ce code la

   sub Commandbutton1click() 

    Sheets("Nom de ta premiere feuille").Select
    Range("A1:L65000").Select
    'Nom de la feuille de classeur premiere page
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

end sub  

et un autre bouton avec ton code pour faire le reste

Tu jetteras juste deux feuille

Yeahh!

Tout est réglé, un gros gros merci à toi!

Bonne journée