Sélection d'imprimante dans une macro EXCEL

Résolu
gbdos Messages postés 72 Statut Membre -  
gbdos Messages postés 72 Statut Membre -
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.

3 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
  2. choubaka Messages postés 5534 Date d'inscription   Statut Modérateur Dernière intervention   2 113
     
    Bonjour

    Ce sont des imprimantes réseau ???
    0
    1. gbdos Messages postés 72 Statut Membre 2
       
      Oui ce sont des imprimantes réseau.
      0
  3. gbdos Messages postés 72 Statut Membre 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