Discussion :

[Ulysse_64]

Bonjour,
Windows XP SP3 x86 - Excel 2007

Pour des raisons de sécurité, notre service HSQE nous demande la possibilité d'imprimer un tableau Excel (liste des personnes présentes sur le site) sur plusieurs imprimantes en 1 seul clic.
Les imprimantes sont installées en local sur le poste XP. J'ai recherché et fait des tests en VBA, mais ca ne semble pas si évident.

Merci pour votre aide,

Guillaume.

[SfJ5Rpw8]

Et tu as essayé l'enregistreur de macros ? tu prends le code généré par l'enregistreur de macros en enlevant le code inutile style "select", "Activate", "ActiveSheet"....

[Ulysse_64]

Bonjour,
Et merci pour la réponse.
J'ai tenté l'enregistreur de macro, voici le code généré lorsque j'imprime sur 2 imprimantes (1 laser et ensuite l'imprimante XPS) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MULTI_IMPRESSION()
'
' MULTI_IMPRESSION Macro
'
 
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWindow.SmallScroll Down:=-36
End Sub

Lorsque je lance la macro, les 2 impressions se lancent sur l'imprimante XPS.
Il faudrait que je trouve un moyen d'envoyer une impression, en variabilisant le nom de l'imprimante.

Merci pour votre aide,

Guillaume.

[SfJ5Rpw8]

il faut que tu lance l'enregistreur de macro avant de changer d'imprimante... et tu ne l'arrête qu'une fois que tu as effectué tes 2 impressions ..

Tu devrais avoir un code du genre :

Code :

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

Feuil1.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne00:"

tu peu aussi trouver le nom de tes imprimante, en exécutant le code suivant dans la fenêtre exécution de l'éditeur VBA ( CTRL+G)

Code :

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

Debug.Print ActivePrinter

[Ulysse_64]

Bonjour,
Je viens de tester le code :

Code :

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

1
2
3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="SHARP MX-2300N"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Lexmark E342n"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer"

Ca me lance 3 impressions sur la même impriamte, à savoir l'imprimante par défaut.
Si je modifie l'imprimante dans Excel puis que je lance l'enregistreur de macro, l'imprimante n'est pas indiquée dans le code VBA.

PS1 : le nom utilisé dans le code correspond au nom indiqué dans les propriété de l'imprimante.

PS2 : j'ai également essayé en mettant ":" à la fin du nom de l'imprimante comme dans ton exemple. Ca ne change pas le comportement.

Merci,

Guillaume.

[SfJ5Rpw8]

le nom n'est pas le bon .. :

tu peu aussi trouver le nom de tes imprimante, en exécutant le code suivant dans la fenêtre exécution de l'éditeur VBA ( CTRL+G)

Code :

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

Debug.Print ActivePrinter

[Ulysse_64]

Bonjour,
J'étais passé à côté du CTRL+G !
Ca fonctionne. Merci pour ton aide.

Guillaume.