Comment imprimer avec un Bouton la zone d'impression d'une autre page (RESOLU)

[Bambi35]

Bonjour à tous

Je souhaiterai imprimer une zone de cellule de la feuille 2, à partir d'un bouton situer sur la feuille 1
sans voir à aucun moment la zone d'impression s'afficher.
J'arrive quand la plage est sur la même feuille mais la quand j'active le bouton je vois la zone d'impression.
malgré que je l'ai placée en ligne 120-125

Ci-joint le fichier

Merci de votre aide

 

[Denis]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonjour Bambi35 et le forum
essais ceci :

Sub Imprimer2()
' Imprimer2 Macro
Application.ScreenUpdating = False
Sheets("Feuil2").Select
Sheets("Feuil2").PageSetup.PrintArea = "$A$1:$D$12"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

Bon courage et à+
Denis

 

[phlaurent55]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonjour à tous,

ou plus simplement:

Sub Imprimer2()
    Sheets("Feuil2").PageSetup.PrintArea = "$B$120:$D$125"
    Sheets("Feuil2").PrintOut Copies:=1, Collate:=True
End Sub



Sub imprimer1()
    Sheets("Feuil1").PageSetup.PrintArea = "$B$22:$C$25"
    Sheets("Feuil1").PrintOut Copies:=1, Collate:=True
End Sub

à+
Philippe

Edit: il n'est pas nécessaire de changer de feuilles et masquer le déroulement avec Application.ScreenUpdating

 

[Bambi35]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonjour Philippe

J'ai testée ta macro mais quand je lance l'impression pour la page 2 , je vois la zone d'impression de la page 2 3 Second
Chose que je ne veux pas, je voudrais que cela soit transparent car le fichier sera utilisé par d'autre personnes que moi.
Je remis le fichier en ligne mais il indique que le fichier est corrompu pourquoi ?
Merci de ton aide

Bambi35

 

[Bambi35]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonjour Denis
J'ai testé ta solution mais quand je lance l'impression je me retrouve sur la page 2

Merci de ton Aide
Bambi35

 

[phlaurent55]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Rebonjour à tous,

avec ce code:

Sub Imprimer2()
     Application.ScreenUpdating = False
     Sheets("Feuil2").PageSetup.PrintArea = "$B$120:$D$125"
     Sheets("Feuil2").PrintOut Copies:=1, Collate:=True
     Application.ScreenUpdating = True
 End Sub



 Sub imprimer1()
     Application.ScreenUpdating = False
     Sheets("Feuil1").PageSetup.PrintArea = "$B$22:$C$25"
     Sheets("Feuil1").PrintOut Copies:=1, Collate:=True
     Application.ScreenUpdating = True
 End Sub

Je remis le fichier en ligne mais il indique que le fichier est corrompu pourquoi ?

Je n'ai pas de problème à l'ouverture du fichier, tout se passe mormalement

à+
Philippe

 

[Bambi35]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonjour Philippe

Aucun problème avec la macro


Sub Imprimer1()

Application.ScreenUpdating = False
Sheets("Fiche").Visible = True
Sheets("Fiche").PageSetup.PrintArea = "$A$1:$BG$47"
Sheets("Fiche").PrintOut Copies:=1, Collate:=True
Sheets("Fiche").Visible = False
Application.ScreenUpdating = True
End Sub

Philippe
J'ai masqué la "fiche" et j'ai modifié la macro pour quelle puisse l'imprimer
mais j'aimerai que sur la page 1 ou j'ai mon bouton d'impression que je ne puisse pas lancer l'impression
tant que certaines cellules ne sont pas renseignées.
Eh là je bloque
Merci de ton aide

Bambi35

 

[phlaurent55]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Re Bonjour,

que je ne puisse pas lancer l'impression
tant que certaines cellules ne sont pas renseignées.

Voici un exemple qui teste si la cellule A1 ou la cellule C23 sont vides
....si vide, pas d'impression

Sub Imprimer1()

If Range("A1") = "" Or Range("C23") = "" Then
    MsgBox ("Les cellules A1 et C23 ne peuvent pas être vide")
    Exit Sub
End If

Application.ScreenUpdating = False
Sheets("Fiche").Visible = True
Sheets("Fiche").PageSetup.PrintArea = "$A$1:$BG$47"
Sheets("Fiche").PrintOut Copies:=1, Collate:=True
Sheets("Fiche").Visible = False
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[Bambi35]

Re : Comment imprimer avec un Bouton la zone d'impression d'une autre page

Bonsoir Philippe

Nickel pour la macro .
Merci encore de ton aide

@++++

Bambi35