Discussion :

[miska]

Bonjour à tous,

Je me permets de vous déranger puisque j'ai un petit soucis, j'ai quasiment terminé l'application que j'étais en train de développer mais je bloque encore sur un petit truc super embêtant. J'ai beau regarder sur le net depuis hier je ne trouve aucune solution à mon problème...

je souhaiterai imprimer deux page dans mon fichier excel hors deux zone bien distincte la page 1 serai : de la cellule A1 à F39.

La deuxième page serai de la cellule H1 à T22...


Pour l'instant j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Imprimer_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

Pouvez-vous me venir en aide s'il vous plait j'en ai marre c'est le dernier truc qui me bloque pour terminer totalement mon projet

Merci d'avance cordialement Miska

[aalex_38]

Pour trouver le code, à imprimer utilises l'enregistreur de macro et :
- selectionne la zone
- Puis Fichier / zone d'impression / Définir

...

[momone18]

Bonjour à Vous, MISKA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$39"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    ActiveSheet.PageSetup.PrintArea = "$H$1:$T$22"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
End Sub

[miska]

Merci pour vos réponses si rapide je viens d'essayé ta méthode momone18 mais le problème c'est que la deuxième zone d'impression contient un graphique et quelque cellule excel, Or avec ce bout de code, il n'y a que le graphique qui apparait sans les autres cellules et en plus il est couper :/

Comment puis régler cela ?

[momone18]

Même s'il y un graphique en page 2, cela fonctionne.
il suffit de que le graphique appartienne à la zone $H1:$T22
j'ai essayé et vérifié !
Salutations et à Bientôt

[miska]

Merci pour l'info mais le graphique est sur une deuxième page, Malheureusement lorsque je souhaite lancer une impression, sur la deuxième page j'ai mon graphique et en dessous dans d'autre cellules de la page. Il m'affiche le graphique (couper) et ne m'affiche pas les cellules :/

[miska]

Bon je viens de réaliser un nouveau test, ça fonctionne ne me demandé pas à quoi cela était du, je n'en sais strictement rien :/, Par contre je voudrai savoir une dernière chose, comment puis-je centrer mes informations ? car la ça colle la marge de droite :/

[Didier Gonard]

Bonjour,

Fichier, Mise en page, onglet Marges, cocher centrer sur la page les options voulues ?

cordialement,

Didier

[miska]

merci de ta réponse Didier ça me paraissais tellement évident que je ne l'avais pas fait.. par contre ça ne me prend plus que mon graphique j'ai encore un problème pas rapport à ça ..

[miska]

bon tampis je vais marqué Résolu car je sais plus quoi faire et je pense que ça va pas être résolu comme ça je comprend pas et j'ai un autre gros problème a résoudre avant...

En tous car merci à tous pour vos réactions c'est cool

cordialement miska

[Didier Gonard]

Bonjour,

Avec ton contexte, utilises l'enregistreur de macro, il te donnera les commandes voulues et tu nettoies après...

genre brut de fonderie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub Macro1()
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
 
   ActiveSheet.PageSetup.PrintArea = "$A$1:$F$39"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
     ActiveWindow.SelectedSheets.PrintOut
End Sub
Sub Macro2()
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$H$1:$T$22"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
     ActiveWindow.SelectedSheets.PrintOut
End Sub

cordialement,

Didier

[miska]

Merci Didier, si ça replante, j'essaierai ta méthode , mais là j'en ai trouvé une autre qui n'est peu être pas très éthique mais bon ça fonctionne. J'ai juste rajouté un pied de page et ça fonctionne comme je le souhaite à présent

Merci beaucoup à tous