Bonjour à tous,

J'ai besoin faire l'impression d'un document Word (.rtf). Pour le faire, j'utilise le fonction ci-dessous (pris dans la ):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub imprimer()
Dim oApp As New Word.Application
oApp.Documents.Open "D:\test.doc"
oApp.Visible = False
oApp.PrintOut
oApp.Quit
Set oApp = Nothing
End Sub
Il marche bien, sauf pour fermer Word, lors qu'il demande si je veux enregistrer les changements. Je voudrais eliminer cette question.

J'ai déjà essayé avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
oApp.Quit acSaveNo
mais il dit "Paramètre incorrect", et l'application Word reste ouverte...


et aussi avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
oApp.Quit acQuitSaveNone
mais la j'ai aucunne message et Word reste aussi ouvert



Est-ce que quelqu'un peut, encore une fois, m'aider svp?
Merci d'avance...