Selection d'imprimante dans une macro

Bonjour à tous,
j'utilise une macro pour effectuer des impressions et je souhaiterais la compléter pour faxer les documents. Le problème est que je ne sais pas comment sélectionner l'imprimante-fax qui est installée sur mon PC. En effet, par défaut l'impression s'effectue sur la dernière imprimante selectionnée voici les quelques lignes de commande :


imprimante "X"
Sheets("Rpt D'EXP.").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=2, _Collate:=True
Sheets("ACCIDENTS").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Je voudrais passer sur l'imprimante "Y" entre ses lignes
Sheets("ACCIDENTS").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Merci de votre aide

Bonjour art_bras_cames

essaie ceci,
Par exemple, pour une imprimante Canon sur port USB001

Sheets("ACCIDENTS").Select
Application.ActivePrinter = "Canon i965 sur Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

A toi de vérifier, dans ses propriétés, le nom et le port de ton imprimante-fax...

Bonjour
Pour compléter la réponse de nonaseb, ci dessous procèdure qui liste les drivers d'imprimantes accessibles de l'ordi et indique l'imprimante par défaut

Sub lister_imprimante()
Dim strcomputer As String
Dim objetWMI As Object
Dim imprimantesdispo As Object
Dim imprimante As Object
Dim lig As Byte

strcomputer = "." 'on ne travaille que sur ce poste
'activation WMI pour Windows
Set objetWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")

'liste les drivers imprimantes installés sur le poste
Set imprimantesdispo = objetWMI.ExecQuery _
("Select * from Win32_Printer")
lig = 1
For Each imprimante In imprimantesdispo
Cells(lig, 1) = imprimante.Name
'renvoie le nom de l'imprimante par défaut
If imprimante.Default Then
Range("D1") = "imprimante active: " & imprimante.Name
End If
lig = lig + 1
Next
End Sub

source: d'après MDSN

Salut à vous,

le nom de mon imprimante est :
\\W2ks-hastus\LAN-FAX-MPC2800

elle se trouve sur le réseau, si j'inscris

Application.ActivePrinter = "\\W2ks-hastus\LAN-FAX-MPC2800"

cela ne fonctionne pas je pense qu'il manque quelque chose.

Merci de vos éclaircissement.

Re,

En réseau, il faut indiquer le serveur
\\w2ks-hastus\ , c'est le nom du serveur ?
lan-fax-mpc2800, connecté en ethernet ou USB ?
Il doit manquer, je pense, l'indication du port

Pour connaitre précisément le nom et le port, tu peux utiliser l'enregistreur de macros Excel
tu lances un nouvel enregistrement de macro
avec la souris, fichier/imprimer, sélectionner l'imprimante, OK
tu arrêtes l'enregistrement
dans le code de la nouvelle macro, tu devrais trouver les références de l'imprimante

Sinon, autre solution

Sheets("ACCIDENTS").Select
Application.dialogs(xldialogprintersetup).show
ActiveWindow.SelectedSheets.PrintOut Copies:=1

cela propose le choix des imprimantes avant impression

Ok, merci pour votre aide.
Bonne continuation.

De rien