ExecuteExcel4Macro Page.Setup marche pas

Version imprimable

Bonjour,

Afin d’accélérer le traitement Page.setup d'une macro, j'ai voulu tenter le ExecuteExcel4Macro.

J'ai repris le code suivant de tinmarbusir sur ce post : http://www.developpez.net/forums/d55...ge-macros-xl4/
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 Sub Macro3() ' Dim Str_macro As String Str_macro = "PAGE.SETUP(" Str_macro = Str_macro & Chr(34) & Format(Date, "dd mmmm yyyy") & Chr(34) 'en_tête Str_macro = Str_macro & ", ""&L &D &C &F &R Page &P""" 'pied_pg Str_macro = Str_macro & ", 0.25, 0.25, 0.75, 0.75" 'marges gauche,droite,haut,bas en pouce Str_macro = Str_macro & ", $1:$2" 'En-tête de ligne et de colonne Str_macro = Str_macro & ", FALSE" 'quadrillage Str_macro = Str_macro & ", TRUE, FALSE" 'centrage horizontal,vertical Str_macro = Str_macro & ", 2" 'orientation - 1=portrait / 2=paysage Str_macro = Str_macro & ", 8" 'papier - 8=A3 / 9=A4 Str_macro = Str_macro & ", FALSE" 'échelle sur une seule page Str_macro = Str_macro & ", {1,#N/A}" 'échelle : 1 page en largeur, pas de contrainte en hauteur 'Str_macro = Str_macro & ", 100" 'no_pg Str_macro = Str_macro & ", Auto" 'ordre_impression Str_macro = Str_macro & ", FALSE" 'cellules en noir & blanc Str_macro = Str_macro & ", 600" 'qualité Str_macro = Str_macro & ", 0.30, 0.30" 'marge_en_tête ,marge pied de page Str_macro = Str_macro & ", FALSE" 'annotations Str_macro = Str_macro & ", FALSE" 'brouillon Str_macro = Str_macro & ")" Application.ExecuteExcel4Macro (Str_macro) MsgBox "fini" End Sub
Le problème est que ça me génère un magnifique "Erreur d’exécution '1004' : La formule que vous avez tapée contient une erreur."

Et le truc rigolo (ou pas) c'est qu'en mettant

Code:

Application.ExecuteExcel4Macro ("Str_macro")

ou

Code:

Application.ExecuteExcel4Macro "Str_macro"

, la macro va jusqu'au bout en affichant la boîte de dialogue.... mais si je fais

Code:

Application.ExecuteExcel4Macro Str_macro

(puisque les parenthèses et les guillemets sont dans les variables), je retourne sur l'erreur 1004.

Je n'arrive pas à trouver l'erreur (dommage, ce découpage d'arguments est vraiment clair).

Merci pour votre aide.

Bonjour,

Un peu tard, mais bon... mais comme on dit... vieux motard que j'aimais...

Pour accélérer la mise en page d'une application, il est préférable de passer par une imprimante interne, du genre Microsoft XPS Document Writer.

ex:

Code:

1
2
3
4
5
6
7
8
    Dim sActivePrinter As String
 
    sActivePrinter = Application.ActivePrinter
    Application.ActivePrinter = FindPrinter("Microsoft XPS Document Writer")
 
    '... ta mise en page
 
    Application.ActivePrinter = sActivePrinter

et cette Function FindPrinter (qui ne vient pas de moi...)

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
'Written: November 28, 2009
'Author:  Leith Ross
'Summary: Finds a printer by name and returns the printer name and port number.

Function FindPrinter(ByVal PrinterName As String) As String

 'This works with Windows 2000 and up
 
    Dim Arr As Variant
    Dim Device As Variant
    Dim Devices As Variant
    Dim Printer As String
    Dim RegObj As Object
    Dim RegValue As String
    
    Const HKEY_CURRENT_USER = &H80000001
       
    Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    RegObj.enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Devices, Arr
    
    For Each Device In Devices
        RegObj.getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Device, RegValue
        
        'Ici, il faut vérifier ce que retourne xlCountrySetting selon vos paramètres régionaux et agir selon le cas
        'on peut se faire une petite macro avec MsgBox Application.International(xlCountrySetting)
        If Application.International(xlCountrySetting) = 2 Then  ' 2= Français-Canada, 33=Français-France, ...
            Printer = Device & " sur " & Split(RegValue, ",")(1)
        Else
            Printer = Device & " on " & Split(RegValue, ",")(1)
        End If
        
        If InStr(1, Printer, PrinterName, vbTextCompare) > 0 Then
            FindPrinter = Printer
            Exit Function
        End If
    Next

End Function

17/05/2016, 08h44
kiki29

Salut,

Citation:

If Application.International(xlCountrySetting) = 2 Then .....

Code:

Application.International(xlCountrySetting) = 33
17/05/2016, 15h32
parmi

Citation:

Envoyé par kiki29

Salut,

Code:

Application.International(xlCountrySetting) = 33

Bien vu... Cette partie reste à vérifier selon la région, finalement...
Comme il y a des gens de plusieurs pays qui passent par ici, il faudrait vérifier ce que retourne:

Code:

MsgBox Application.International(xlCountrySetting)

Et aussi voir comment se nomment les chemins des imprimantes réseaux, peut-être...

Ici, avec paramètres régionaux = Français-Canada, ça retourne 2
Mais c'est vrai que la France retourne 33...
Et qu'en est-il des pays d'Afrique ou du reste de l'Europe (?!)

Je vais donc modifier mon code pour mettre un commentaire sur ce point ;)
18/05/2016, 14h30
Mycomer

Merci pour vos retours (et le temps passé).

Le coup de passer par une imprimante interne (code région 33) me fais gagner quelques secondes (5 pour être précis sur un traitement de 44s). Le fait de masquer le rafraichissement de l'image (screenupdating) me descend à 31s.
Tout ça c'est bien, mais si j'oublie complètement ma mise en page, le traitement ne dure que 4 secondes (quel gâchis !)

Sans vouloir partir sur des trucs inutilement compliqué (je veux dire "pour moi"), sauriez-vous pourquoi mon code en excel4macro ne marche pas ?

L'erreur ne semble pas être dans la dernière ligne (contrairement à ce que je pensais), mais même en laissant toutes les variables vides (ou pour être précis Str_macro = Str_macro & ",") sauf l'alignement du papier (lui est facile à comprendre/changer/vérifier), J'ai mon msgbox (cool) mais en fait aucun changement (pas cool).
18/05/2016, 16h38
parmi

Citation:

Le coup de passer par une imprimante interne (code région 33) me fais gagner quelques secondes (5 pour être précis sur un traitement de 44s).

Étonnant parce qu'ici, c'est plutôt 5 secondes que ça me prend plutôt que 44...(?!)
Les macros Excel4 datent du précolombien.
C'est possible que ça ne fonctionne plus sur les nouveaux systèmes.
Est-ce que tu travailles en 32 ou 64 bits au niveau de Windows ?
18/05/2016, 20h57
Mycomer

En effet, sans le reste du code, ça parait moins long.
Ce qui est très long c'est que j'exporte ma feuille en 4 fichiers séparés grâce aux filtres avancés et que le page.setup s'applique lors de chaque création (donc "c'est long" x4) (et le filtre avancé ne prend que les données, pas le format de page).

A vrai dire c'est pas trop grave puisque ma macro marche, j'aurais juste voulu l'optimiser.

Pour Excel4macro, oui c'est vieux, mais à lire les forums ça semblerait être encore la meilleure solution.

Et pour info : windows 7 64 / office 2007 standard
18/05/2016, 21h33
parmi

C'est possible que la faute soit due au 64 bits de Windows.
J'ai déjà essayé ici sous 64 bits et je n'ai jamais réussi à faire fonctionner cette macro Excel4...
19/05/2016, 07h50
eriiic

Bonjour,

Bien que ce soit sans doute reculer pour mieux sauter, en désactivant le recalcul des sauts de page le temps de la config ?
Se fait au niveau des feuilles :

Code:

Sheets(1).DisplayPageBreaks = False

eric
19/05/2016, 09h47
Mycomer

Tiens, c'est rigolo ca : en désactivant le recalcul des sauts de page ça me prend 5s de plus 8O

Sinon erreur de ma part je suis sous Windows 7 Pro 32bits.