Selection d'imprimante conditionnel

Bonjour mesdames messieurs,

Voila je voudrais un macro qui puisse pouvoir imprimer de deux façons différentes.

Si A1 = BONJOUR-> imprimer feuille active sur : 17PL53-ESC

Si A1 = AUREVOIR -> imprimer la sélection sur 17PL38-ESC

Merci à ceux qui prendront le temps <3

Bonjour,

Avec un paramètre complémentaire, cela devrait fonctionner.

Très bien pour la sélection d'imprimante mais pour ce qui est de la différenciation des deux choix suivant dans le code ?

* Pour imprimer les feuilles actives, la fonction suivante est à utiliser :

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

* Pour imprimer la sélection active, celle ci-après :

Selection.PrintOut Copies:=1, Collate:=True

Bonjour à tous les deux,

Je me permets de poster le code d'Antoine relatif à la sélection d'imprimante pour qu'il soit visible directement par le plus grand nombre :

Sub Impression2()
    If Range("A1").Value = "BONJOUR" Then
        ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="17PL53-ESC", Copies:=1, Collate:=True, IgnorePrintAreas:=False
    ElseIf Range("A1").Value = "AUREVOIR" Then
        ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="17PL38-ESC", Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
End Sub

Cdlt,