code macro ne fonctionne plus

Version imprimable

Bonjour,

tout d'abord tout nouveau ici, merci à vous pour pour votre acceuil.

j'utilise depuis un moment une macro pour effectuer la mise en page d'un doc en .csv, mais du jour au lendemain sans aucune intervention sur le code, celui ci ne fonctionne plus.

la variable page.setup présente une erreur 1004.

Voici mon code: ( en rouge l'erreur détectée )

Merci pour votre aide

Macro5 Macro

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
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .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 = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .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

Bonjour,

En fait la seule partie utile dans cette macro est celle qui définit les marges, tout le reste étant des valeurs par défaut. La macro pourrait donc être réduite à ceci:
Code:

1 2 3 4 5 6 7 8 9 10 Sub Macro5() With ActiveSheet.PageSetup .LeftMargin = Application.InchesToPoints(0.7) .RightMargin = Application.InchesToPoints(0.7) .TopMargin = Application.InchesToPoints(0.75) .BottomMargin = Application.InchesToPoints(0.75) .HeaderMargin = Application.InchesToPoints(0.3) .FooterMargin = Application.InchesToPoints(0.3) End With End Sub
Si l'erreur persiste, il est aussi possible qu'il y ait dans une autre partie du code l'appel à une imprimante dont le nom est mal orthographié ou qui ne serait pas branchée.
Cordialement.

09/03/2020, 18h44
guilau24

merci, jai effacé les lignes inutiles mais le problème persiste.
j'ai effectivement changé de poste de travail récemment et ça doit être lié avec l'imprimante.
par contre je ne vois pas à quel moment ça fait appel à une imprimante en particulier, je pensais pouvoir utiliser ma macro n'importe ou
10/03/2020, 15h37
guilau24

en creusant un peu, mon erreur 1004 viendrait du changement d'imprimante.

est il possible de créer une macro utilisable sur plusieurs imprimantes?
10/03/2020, 18h37
EricDgn

Comme vous l'indiquiez, normalement les macros devraient fonctionner quelle que soit l'imprimante.
Théoriquement ce que vous imprimez est un formulaire ou un état. Que ce soit l'un ou l'autre, sélectionner cet objet, faites un "aperçu avant impression", cliquer sur "mise en page", là dans l'onglet "Page" vérifier que l'impression s'effectue bien sur l'imprimante par défaut (et pas sur une imprimante spécifique). A tester.
Cordialement.