Mise en page par VBA

Version imprimable

Bonjour,

Je tourne en rond depuis plusieurs heures et je ne m'explique pas pourquoi je n'arrive pas à modifier la mise en page d'une feuille Excel en VBA

J'ai enregistré une macro et cela donne cela :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Macro5()
'
' Macro5 Macro
'
 
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$43"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Agenda de clôture 2018" & Chr(10) & ""
        .RightHeader = "&D"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintSheetEnd
        .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
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Range("F16").Select
End

Si ensuite je modifie dans le document "Agenda de clôture 2018" en "Agenda de clôture 2019" et que j'exécute la macro le document reste avec le titre "Agenda de clôture 2018".

Je ne comprends pas pourquoi cela ne fonctionne pas. In fine, je voulais passer l'année en paramètre mais comme cela ne fonctionnait pas, j'ai enregistré la macro pour voir où j'avais pu faire une erreur. Même en en touchant rien à la macro enregistrée, cela ne marche pas!

Merci pour votre aidde

04/04/2019, 09h33
Menhir

Citation:

Envoyé par Daejung

Si ensuite je modifie dans le document "Agenda de clôture 2018" en "Agenda de clôture 2019" et que j'exécute la macro le document reste avec le titre "Agenda de clôture 2018".

C'est normal puisque tu as mis ce titre "en dur" dans l'entête, sans lien avec le nom du fichier.
Et comme c'est aussi en dur dans le code, lancer la macro sur le fichier ne changera rien.

Essaye ça :

Code:

.CenterHeader = "&F"
04/04/2019, 09h37
MarcelG

Bonjour Daejung, Bonjour au Forum,

Citation:

je voulais passer l'année en paramètre mais comme cela ne fonctionnait pas

Pourquoi? Par quelle procédure? Eventuellement par quelle erreur sur quelle ligne de code?
Pour ta compréhension, tu aurais mieux fait de reporter ces éléments.

Tu peux lier le titre du document par une valeur de cellule, ou par une fonction date.

Enfin, je te conseille de purger le code en y affectant les seules propriétés modifiées lors de la mise en page.
Reporter les propriétés standard ne sert qu'à alourdir le code, et, partant, le rendre moins lisible.
04/04/2019, 09h50
Daejung

Citation:

Envoyé par Menhir

C'est normal puisque tu as mis ce titre "en dur" dans l'entête, sans lien avec le nom du fichier.
Et comme c'est aussi en dur dans le code, lancer la macro sur le fichier ne changera rien.

Essaye ça :

Code:

.CenterHeader = "&F"

"Agenda de clôture 2018" en dur pour faire un test.
Je lance la macro et cela devrait mettre comme titre "Agenda de clôture 2018"
04/04/2019, 09h53
Daejung

Citation:

Envoyé par MarcelG

Bonjour Daejung, Bonjour au Forum,

Pourquoi? Par quelle procédure? Eventuellement par quelle erreur sur quelle ligne de code?
Pour ta compréhension, tu aurais mieux fait de reporter ces éléments.

Tu peux lier le titre du document par une valeur de cellule, ou par une fonction date.

Enfin, je te conseille de purger le code en y affectant les seules propriétés modifiées lors de la mise en page.
Reporter les propriétés standard ne sert qu'à alourdir le code, et, partant, le rendre moins lisible.

Mon 1er point c'était de savoir pourquoi exécuter la macro enregistrée sans y toucher, ne donne pas le résultat escompté.
La suite est secondaire pour l'instant.
04/04/2019, 09h54
MarcelG

Citation:

"Agenda de clôture 2018" en dur pour faire un test.
Je lance la macro et cela devrait mettre comme titre "Agenda de clôture 2018"

Je ne vois pas l'intérêt de coder une procédure ainsi.
04/04/2019, 09h57
eriiic

Bonjour à tous,

Il y a un soucis avec Application.PrintCommunication, voir ici : https://social.technet.microsoft.com...ng?forum=excel
Je ne suis pas totalement convaincu par les méthodes de contournement mais ça te donne un axe de recherche.
eric
04/04/2019, 10h03
MarcelG

Citation:

Mon 1er point c'était de savoir pourquoi exécuter la macro enregistrée sans y toucher, ne donne pas le résultat escompté.

Encore une fois, pour mieux la cerner, je te conseille de purger la procédure.
Sur les versions récentes d'Excel, CTRL + P (Impression) suffit à contrôler la mise en page, celle-ci apparaissant par défaut.

Quel résultat attends-tu, inscrit dans la procédure, et qui n'apparaît pas?

Autre point.
La propriété

Citation:

PrintCommunication

de l'objet Application n'a besoin dde se modifier qu'en début et fin de la procédure de mise en page.
Voir l'espace documentaire Microsoft à ce sujet.
04/04/2019, 12h19
Menhir

Citation:

Envoyé par Daejung

"Agenda de clôture 2018" en dur pour faire un test.
Je lance la macro et cela devrait mettre comme titre "Agenda de clôture 2018"

Ta macro change l'entête d'impression de la feuille active et non pas un "titre" (encore faudrait-il savoir ce que ce terme signifie pour toi).

Citation:

Envoyé par Daejung

Mon 1er point c'était de savoir pourquoi exécuter la macro enregistrée sans y toucher, ne donne pas le résultat escompté.

Déjà, c'est une erreur d'utiliser un code obtenu par l'enregistreur automatique sans chercher à le comprendre parce qu'il est très rare qu'il ne soit pas nécessaire de l'adapter à ce qu'on veut faire.
Ensuite, il faudrait que tu expliques quel est le "résultat escompté".
04/04/2019, 14h34
Daejung

Citation:

Envoyé par Menhir

Ta macro change l'entête d'impression de la feuille active et non pas un "titre" (encore faudrait-il savoir ce que ce terme signifie pour toi).

Déjà, c'est une erreur d'utiliser un code obtenu par l'enregistreur automatique sans chercher à le comprendre parce qu'il est très rare qu'il ne soit pas nécessaire de l'adapter à ce qu'on veut faire.
Ensuite, il faudrait que tu expliques quel est le "résultat escompté".

Merci de me faire la leçon. je suis complètement débile il est vrai.

Je comprends le code, j'ai simplement utilisé l'enregistreur car j'avais une erreur que je m'expliquais pas.
Je vais me débrouiller autrement

Cas résolu
04/04/2019, 14h45
MarcelG

Je souscris à 100% sur ce qu'Expose Menhir. :plusser:
Aussi, Daejung, ce ont ce genre de remarques qui te feraient acquérir la rigueur et l'expérience nécessaire. Non?

Excuse-moi, j'évoque le cas que je connais le mieux, le-mien.
Si, voilà bientôt 10 ans, j'avais fait preuve de susceptibilité, alors je ne serais pas en train de coder des modules de classe!