Re : La methode active printer de l'objet a échoué????
bonjour walifon,
a priori, je ne vois d'erreur sur ton code (a priori car pas un expert).
Toutefois, as-tu essayé d'imprimer plusieurs fois à a la suite avec ta macro?
Le problème se pose-t-il le lendemain?
Ton imprimante est-elle en réseau,ou non ?
tu pourrais efectué ce test lors de ta prochaine erreur :
sub nom()
MsgBox "Le nom de l'impriamnte est :" & _
Application.ActivePrinter
end sub
Cela te permettrait de connaître le nom actuel et voir quel paramètre change.
Sinon tu peux affecter une variable qui ne changera jamais, du style :
Sub TOUTOU2()
'
' TOUTOU2 Macro
' Macro enregistrée le 16/07/2007 par EXBL01A
'
dim printer as string
'
printer=application.activeprinter
Sheets(Array("VN ", "SAV")).Select
Sheets("VN ").Activate
Application.ActivePrinter = printer
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
printer,Collate:=True
Sheets("Menu").Select
End Sub