Identification saut de page sous VBA

Version imprimable

Voici mon probleme:
Je souhaiterai automatiser l'impression d'un document sur une feuille A4 sachant que ce doc, pour des soucis de lisibilté, est qualibré sur 2 pages.
(Je ne peux le limiter à une page sinon celui-ci serait illisible)

Une fois qualibré, je copie la partie contenue sur la page 2 pour la coller à coté de la partie sur la page 1.

Le soucis etant d'automatiser une pratique qui à la base est tirée par les cheveux...

J'ai donc tenté de créer une macro, j'ai un soucis quand je dois selectionner la partie sur la page 2, la difficulté étant de d'identifier cette partie.

Voici le code associé que j'ai commencé à produire (Je suis débutant) en mixant enregistrement et parties de forum:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Application.PrintCommunication = True ActiveWindow.View = xlPageLayoutView Dim N As Long Dim Wksht As Worksheet, Cellule As Range Dim VPC As Long VPC = Wksht.VPageBreaks.Count + 1 N = Range("A1").End(xlDown).Row ActiveWindow.SmallScroll Down:=N Range("VPC:N").Select Selection.Copy
Le message d'erreur survient à " VPC = Wksht.VPageBreaks.Count + 1": Erreur d'execution 91, Variable objet ou variable de bloc With non definie.

Merci pour votre aide.

09/06/2011, 21h24
pgz

Bonsoir.

Lorsque tu déclares WkSheet, cette variable est par défaut = Nothing.

Il faut y placer un objet avant de pouvoir l'utiliser :

Code:

Set WKSheet = Thisworkbook.Worksheets("NomFeuille")

Cordialement,

PGZ
09/06/2011, 21h24
arosec

Bonsoir,

Ne serait il pas plus simple de demander à Excel d'ajuster le tout sur une seule page...
Il faut voir les propriétés FitToPagesWide et FitToPagesTall de pagesetup
10/06/2011, 10h33
mathieubonnefontiae

Justement sur une seule page le format est trop petit, c'est illisible.

PGZ j'ai tenté d'insérer ton code, j'ai un message d'exécution 9, "l'indice n'appartient pas à la selection".

So now?
10/06/2011, 10h57
pgz

Bonjour

Citation:

Envoyé par mathieubonnefontiae

PGZ j'ai tenté d'insérer ton code, j'ai un message d'exécution 9, "l'indice n'appartient pas à la selection".

Tu dois remplacer "NomFeuille" pas le nom de la feuille.

PGZ

rep

Je l'ai fait my dear, voici le code pour la selection de la plage apres kle saut de page:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Application.PrintCommunication = True
    ActiveWindow.View = xlPageLayoutView
 
    Dim N As Long
    Dim Wksht As Worksheet, Cellule As Range
    Dim VPC As Long
 
    Set Wksht = ThisWorkbook.Worksheets("Feuill1")
 
    VPC = Wksht.VPageBreaks.Count + 1
    N = Range("A1").End(xlDown).Row
    ActiveWindow.SmallScroll Down:=N
 
    Range("VPC:N").Select

heu!!!

bonjour

une idée toute simple

pourquoi ne pas compter le nombre de lignes

les diviser par 2

et paramétrer le aera

exemple

ta page est remplie disons jusqu'à la ligne 70 ce qui est trop grand pour une page

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Dim DerniereLignepage2 As Long, dernierelignepage1 As Long
DerniereLignepage2 = Range("A" & Rows.Count).End(xlUp).Row 'on touve la derniere ligne de la page
dernierelignepage1 = Round(DerniereLignepage2 / 2) 'round au cas ou on aurais pas un nombre paire
'il te reste a déterminer la derniere colonne utilisée exemple la colonne "j"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$j$" & dernierelignepage1
    Active Sheets.PrintOut
    ActiveSheet.PageSetup.PrintArea = "$A$" & dernierelignepage1 + 1 & ":$j$" & DerniereLignepage2
    Active Sheets.PrintOut
 
    End Sub

c'est un premier jet on peut l'améliorer

au plaisir

tu as recu ma reponse?

Voici ce que j'ai composé à l'aide de technique que j'ai quelque peu adapté:

Code:

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
  Dim DerLig As Long, DerCol As Integer
    Dim Derligpage1 As Long
    Dim Rg As Range
    Dim PageSetup As Variant
    Dim DerliereLignepage2 As Double
 
    With ActiveSheet.PageSetup
        .FitToPagesTall = 2
        .FitToPagesWide = 1
    End With
 
    With Worksheets("Feuil1")
 
        DerLig = .Cells.Find(What:="*", _
                 LookIn:=xlValues, _
                SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row
 
        DerCol = .Cells.Find(What:="*", _
                 LookIn:=xlValues, _
                SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column
 
        Derligpage1 = Round(DerniereLignepage2 / 2)
    End With
 
    Range("$A$" & Derligpage1 + 1 & ":$B$" & DerLig).Select
    Selection.Copy

Avec ce code je ne copie pas la partie située sur la page 2 mais l'essentiel du doc soit la page 1 et 2.

Je ne vois pas ou est l'erreur, je crois que ta methode n'est pas reconnu par VB meme si je n'ai aucun message d'erreur.

T'en penses quoi?

bonsoir

essaie ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Macro2()
Dim DerniereLignepage2 As Long, dernierelignepage1 As Long'pour trouver la derniere ligne utilisé dans la colonne A tu fait ceci:
DerniereLignepage2 = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'on touve la derniere ligne de la page
'tu divise la precedente par 2 donc tu aura la moitié
dernierelignepage1 = Round(DerniereLignepage2 / 2) 'round au cas ou on aurais pas un nombre paire
Application.ScreenUpdating = False
 
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.SmallScroll Down:=18
    Set ActiveSheet.HPageBreaks(1).Location = Range("A" & dernierelignepage1)
    Set ActiveSheet.HPageBreaks(1).Location = Range("A" & dernierelignepage1 + 1)
    ActiveWindow.View = xlNormalView
 
 
    ActiveSheet.PrintPreview
 
End Sub

au plaisir

14/06/2011, 12h34
mathieubonnefontiae

Re

Super ca marche, tres ingenieux cette solution, encore merci Patrick.

Bien à toi
14/06/2011, 18h09
patricktoulon

re

bonjour

ya pas de quoi tu peut sans doute l'améliorer

au plaisir