'Ouvre la boite de dialoque de choix d'imprimante et imprime sur l'imprimante séléctionnée
Dim dlganswer As Boolean
Dim printer As String
dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show
If dlganswer = True Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
printer = Application.ActivePrinter
End If
'______________________________________________
'IMPRESSION DES CONDITIONS D'ACHATS
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Fichier = 'X:\\Commandes\\Conditions d'achat.doc'
Set appWrd = CreateObject('Word.Application') 'creation session Word
appWrd.Visible = False 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)
Word.Application.ActivePrinter = printer
Word.Application.PrintOut Copies:=1, collate:=True 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesion Word