Sélection d'imprimante dans une macro EXCEL

Résolu
gbdos Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -  
gbdos Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -
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.

A voir également:

3 réponses

Réponse 1 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
1
Réponse 2 / 3
choubaka Messages postés 39442 Date d'inscription   Statut Modérateur Dernière intervention   2 105
 
Bonjour

Ce sont des imprimantes réseau ???
0
gbdos Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   2
 
Oui ce sont des imprimantes réseau.
0
Réponse 3 / 3
gbdos Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   2
 
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.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses