Adapter macro 2007/2010 pour mise en page

Version imprimable

Bonjour à tous,

je travaille pour un client qui évolue sur Excel 2003, et comme il refuse que je fasse des tests sur son poste, je n'ai pas beaucoup de solutions possibles :/
Aussi, est-ce que quelqu'un parmi vous pourrait me donner l'équivalent du macro recorder sous Excel 2003 de la manipulation suivante :
-Définir la zone d'impression A1:J200
- ligne d'en-tête à garder 1:11
- format portrait
- 1 page max en largeur
- automatique en hauteur

Le code que j'ai actuellement sous 2007 mais qui ne passe pas sous la version 2003 du client :

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
29
30
31
32
33
34
Application.PrintCommunication = False
        With wbk.Sheets(Boucle).PageSetup
            .PrintArea = wbk.Sheets(Boucle).Range("A1:J" & wbk.Sheets(Boucle).Range("A65536").End(xlUp).Row).Address
            .PrintTitleRows = "$1:$11"
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = "&10&P/&N"
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.75)
            .BottomMargin = Application.InchesToPoints(0.75)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            '.PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 0 'automatique
            .PrintErrors = xlPrintErrorsDisplayed
        End With
Application.PrintCommunication = True

Avec une erreur 438, erreur non gérée...

Merci par avance

Bonjour,

J'ai testé le code sous 2003 qui n'aime pas certaines instructions signalées par '///

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
29
30
31
32
33
34
35
36
37
38
39
40
Sub aa()
Dim wbk As Workbook
Dim Boucle
Set wbk = ThisWorkbook
Boucle = Sheets(1).Name
'Application.PrintCommunication = False '///2003 ne connaît pas cette propriété
        With wbk.Sheets(Boucle).PageSetup
            .PrintArea = wbk.Sheets(Boucle).Range("A1:J" & wbk.Sheets(Boucle).Range("A65536").End(xlUp).Row).Address
            .PrintTitleRows = "$1:$11"
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = "&10&P/&N"
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.75)
            .BottomMargin = Application.InchesToPoints(0.75)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            '.PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1 'automatique  ///n'aime pas le 0
            .PrintErrors = xlPrintErrorsDisplayed
        End With
'Application.PrintCommunication = True  '///2003 ne connaît pas cette propriété
End Sub

Citation:

FitToPagesTall, propriété
Cette propriété renvoie ou définit le nombre de hauteurs de page en fonction duquel la feuille de calcul doit être mise à l'échelle lors de son impression. Cette propriété s'applique uniquement aux feuilles de calcul. Type de données Variant en lecture-écriture.

Notes
Si cette propriété a la valeur False, Microsoft Excel met la feuille de calcul à l'échelle en fonction de la valeur de la propriété FitToPagesWide.

Si la propriété Zoom a la valeur True, la propriété FitToPagesTall est ignorée.

Exemple
Cet exemple montre comment configurer Microsoft Excel de sorte qu'il imprime la feuille Sheet1 exactement sur une page en hauteur et en largeur.

With Worksheets("Sheet1").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With

19/11/2013, 13h13
Jean-Philippe André

Super,

peux-tu me dire si la valeur du nombre de feuille en hauteur est bien automatique en mettant 1 en 2003 stp ?

Je ferais un test de la version pour mettre 0 ou 1 du coup.

Merci !
19/11/2013, 13h26
PMO2017

Citation:

peux-tu me dire si la valeur du nombre de feuille en hauteur est bien automatique en mettant 1 en 2003 stp ?

Non, rien d'automatique.
C'est le nombre de feuilles à la verticale. Si on met 1 on a une seule feuille, si on met 3 on a 3 feuilles à la verticale.
19/11/2013, 13h29
Jean-Philippe André

Arg,

donc condamné à faire un calcul en fonction du nombre de ligne :'(

En fait dans ma version 2010, en mettant automatique tout est bien (sauts de pages et tout), alors que si je mets en dur le nombre de feuilles, ca me décale tout :cry:

Merci en tous cas pour ton aide, je vais faire remonter le problème à mon client...