Imprimante par defaut

Dim imprimante(1 To 2) As String
Sub test()

imprimante1 = "Brother HL-2240 series sur Ne02:"
imprimante2 = "MFC sur Ne00:"

If ActivePrinter = imprimante1 Then
ActivePrinter = imprimante2
Else
ActivePrinter = imprimante1
End If
End Sub

Private Sub CommandButton2_Click()
'save imprimante en cours
stPrinter$ = Application.ActivePrinter

'init l'imrimante désirée
Application.ActivePrinter = "Brother HL-2240 series sur Ne02:"
'...
ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,""Brother HL-2240 series sur Ne02:"",,TRUE,,FALSE)"
'
Dim fichier As String
fichier = "D:\Nettoyeur\No de facture\Bon de livraison\" & [ba6].Value & "_" & [e26].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            ignorePrintAreas:=False, OpenAfterPublish:=False


' Sheets("no").Select '<<<<<<<< !? c'est quoi No !? il va y avoir un plantage !
'remet l'imprimante par defaut
Application.ActivePrinter = stPrinter
ActiveWorkbook.Close False
End Sub


'save imprimante en cours
stPrinter$ = Application.ActivePrinter
'select une imprimante avec la boite de dialogue
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
'suite code ...
' . . .
'remet l'imprimante par defaut
Application.ActivePrinter = stPrinter