Choix entre deux Imprimantes seulement ds Workbook_open

Bonjour à Tous,

J'ai ce code qui m'ouvre une boîte de dialogue permettant de choisir l'imprimante voulue dans une liste.

Y a t'il un moyen de modifier ce code pour avoir le choix entre deux imprimantes seulement.

Ex: "MTL Barcode Printer on Ne76:" & "MTL Barcode Printer on Ne87:"

Car nous avons environ une centaine d'imprimante au boulot.

Le but est que je veux faire ce choix en ouvrant le fichier excel, mais en ne changeant pas l'imprimante par défaut.

Sub ChoisirImprimante()
Dim Imprimante As String
'L'imprimante actuelle
Imprimante = ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
'L'imprimante sélectionnée
Imprimante = ActivePrinter
End Sub

Je joins mon fichier.

Merci

Jean

Bonjour,

Je n'y connais rien en VBA au sujet de l'impression, j'attendais une réponse, mais est-ce que la proposition en pièce jointe ne ferait pas l'affaire ?

Bonsoir oyobrans,

Oui, c'est ce que j'espère.

Je vais faire le test au boulot demain et je vous redonne des nouvelles.

Merci

Jean

Bonsoir oyobrans,

J'ai fait le test et, les imprimantes ne s'activaient pas.

Après recherche j'ai pris votre exemple et changé:

Application.ActivePrinter = Me.OptionButton1.Caption

pour:

Application.ActivePrinter = "MTL Barcode Printer on Ne76:"

Application.ActivePrinter = "MTL Barcode Printer on Ne87:"

J'ai mis deux boutons de commande et le tout fonctionne bien.

Je joins mon fichier exemple avec les imprimantes d'office 2016 pour démontrer mon exemple.

Merci de votre AIDE.

Jean