Fermeture de word

Question

###TITEUF###
 ;)  >:) 

Salut à tous  !

Novice en la matière, je suis en train d'écrire un code pour imprimer via VB un document Word.
Jusque là pas de Pb, mon impression est OK, mais deux problèmes subsistent, le fichier word reste ouvert aprés impression, ainsi que word.
Dans le gestionnaire, winword.exe reste ouvert et me prend de la mémoire.
Si j'imprime plusieurs doc word , winword.exe s'ouvre autant de fois.
Si quelqu'un pouvait m'aider, j'apprécierais beaucoup.

Merci à vous de prendre le temps de m'écouter !!

PS: voici mon code

Private Sub Command_imp_Click()
Command_retour.Visible False: Command_imp.Visible False
Dim instanceword As New Word.Application
Dim fichier As New Word.Document
Set fichier = instanceword.Application.Documents.Open("d:\société\logiciel devis\videodoc.doc")
fichier.PrintOutCommand_retour.Visible True: Command_imp.Visible True
fichier.Close

End Sub

cs_wape · Answer

Essaye d'ajouter à la fin de ton code (après fichier.Close) :

'Quitter Word
instanceword.Quit

'Libérer les ressources
Set fichier = Nothing
Set instanceword = Nothing

@+

wape

capoueidiablo · Answer

Si ca t'interresse je peux te filé un code permettant de "killer" un process, c'est peut etre un peu bourin mais bon si ca t'interresse fais moi signe [;-)]
--Capoueidiablo--

cs_titeuf44 · Answer

###TITEUF###
 ;)  >:) 

Merci de ton aide,
mais sais tu comment éviter la boite de dialogue demandant l'enregistrement du document .

Merci.

capoueidiablo · Answer

là je peux pas t'aider désolé :s
par contre une question, est t'il vraiment nescescaire d'ouvrir le fichier word ? ne peut tu pas ouvrir le fichier avec l'instruction open dans une Rich text box et tu l'imprime a partir de la, je sais pas trop, c'est une idée.
Et puis comment ce fais t'il qu'il te demande de sauvegarder si tu ne fais que l'impression du document ? aucune modification n'a été faite donc elle ne devrais pas apparetre ta boite de dialogue.

Bizard Bizard ...  :question)   :question)   :question) --Capoueidiablo--

cs_titeuf44 · Answer

###TITEUF###
 ;)  >:) 

Merci pour ton aide .

cs_seyev · Answer

Yop,
 j'ai deja fait ca..

j'utilise

Dim MSW As New Word.Application

' On ouvre
Call MSW.Documents.Open("doc.doc", True, True, False)

'on imprime
MSW.Documents(1).PrintOut

' On ferme le doc
MSW.Documents.Close (False)

' On quitte word
MSW.Application.Quit (False)
    
' On libère l'objet...
Set MSW = Nothing

voila..
il est peut etre nécessaire de faire une prtite pause entre le PrintOut et le Close... A voir...

Fermeture de word

6 réponses

Discussions similaires