Discussion :

[Marc_27]

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...

[LE VIEUX]

bonjour,
et avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oApp.Application.Quit

[Marc_27]

Bonjour LE VIEUX, merci de ta rèponse.

Avec ton code le processus reste ouvert, Mais je reussi à le faire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oApp.QUIT savechanges:=wdDoNotSaveChanges

[Marc_27]

Nouveau soucis:

Maintenant je n'ai plus l'impression avec le code:

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 savechanges:=wdDoNotSaveChanges
Set oApp = Nothing
End Sub

Mais si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub imprimer()
Dim oApp As New Word.Application
oApp.Documents.Open "D:\test.doc"
oApp.Visible = False
oApp.PrintOut
 
MsgBox "pause"
 
oApp.QUIT savechanges:=wdDoNotSaveChanges
Set oApp = Nothing
End Sub

Il imprime correctement...

[francishop]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oApp.ActiveDocument.Close

Cordialement.

[Marc_27]

Bonjour francishop,
Merci de votre réponse. Est-ce que là je ne fermerais que le document, en laissant le processus Word ouvert?

J'ai résolu le problème du "pause" avec la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim a As String, i as Integer
DoEvents
For i=0 to 10000000
a=CStr(i)
Next i

Mais je ne trouve pas trop "propre"...

Est-ce que quelqu'un aurait quelque idée?
Merci encore une fois pour votre aide