Discussion :

[mathieubonnefontiae]

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 :

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

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.

[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 :

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

Set WKSheet = Thisworkbook.Worksheets("NomFeuille")

Cordialement,

PGZ

[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

[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?

[pgz]

Bonjour

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

[mathieubonnefontiae]

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

Code :

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

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

[patricktoulon]

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 :

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

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

[mathieubonnefontiae]

tu as recu ma reponse?

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

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
  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?

[patricktoulon]

bonsoir

essaie ca:

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
 
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

[mathieubonnefontiae]

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

Bien à toi

[patricktoulon]

bonjour


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


au plaisir