Sélection d'imprimante dans une macro EXCEL Résolu/Fermé

Question

Bonjour, 

J'ai un fichier EXCEL (2007), dans lequel j'imprime des feuilles sur 2 imprimantes réseau.
Quand j'écris dans la macro le nom des imprimantes, cela fonctionne de mon poste, mais pas forcément d'un autre poste, à cause du "Nom imprimante sur Ne04". Je voudrai donc que l'utilisateur sélectionne les 2 imprimantes au début de la macro, comme ça chacun peut imprimer où il veut.

Dans l'idée, je veux pouvoir sélectionner 2 imprimantes dans la liste des imprimantes paramétrées sur mon poste et qu'elles deviennent des variables que j'appalerai par la suite dans ma macro, au moment des impressions.

Je ne sais pas si je suis bien clair dans mon explication.

Quelqu'un a-t-il une idée?

Mer ci de votre aide.

Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Bonjour,
Par exemple : un petit test :
Sub test()
Dim ImprimanteParDefaut As String, Imprimante1 As String, Imprimante2 As String
'Stocke le nom de l'imprimante par défaut, pour la remettre en fin de module
ImprimanteParDefaut = Application.ActivePrinter
'Choix de l'imprimante n°1
Application.Dialogs(xlDialogPrinterSetup).Show
Imprimante1 = Application.ActivePrinter
'Choix de l'imprimante n°2
Application.Dialogs(xlDialogPrinterSetup).Show
Imprimante2 = Application.ActivePrinter
'visualisation des noms stockés dans les variables
MsgBox Imprimante1
MsgBox Imprimante2
'remise de l'imprimante par défaut :
Application.ActivePrinter = ImprimanteParDefaut
End Sub--
Cordialement,
Franck P

choubaka · Answer

Bonjour

Ce sont des imprimantes réseau ???

gbdos · Answer

Merci pijaku,

J'ai intégré le bout de code au début de ma macro et..... NICKEL ça fonctionne comme je le voulais!!

Encore merci.

Sélection d'imprimante dans une macro EXCEL

3 réponses

Discussions similaires