Sujet Précédent Sujet Suivant

Sélection d'imprimante dans une macro EXCEL

Résolu/Fermé
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 - 28 nov. 2011 à 09:50
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 - 28 nov. 2011 à 14:53
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
28 nov. 2011 à 10:20
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 39375 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 14 avril 2024 2 100
28 nov. 2011 à 10:20
Bonjour

Ce sont des imprimantes réseau ???
0
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 2
28 nov. 2011 à 14:52
Oui ce sont des imprimantes réseau.
0
Réponse 3 / 3
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 2
28 nov. 2011 à 14:53
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

Mon imprimante HP est en pause. Que faire ?
magja -
Nikola -

42 réponses