Quitter wordRésolu

Question

Salut à tous
merci pour l'attention portée à mes requetes en voici une autre:
je voudrais pouvoir quitter word depuis excel avec ce code:
Sub Impression_USI1()
   
 ' Declare the variable.
   Dim oWord As Word.Application




    ' Set the variable (runs new instance of Word).
    Set oWord = CreateObject("Word.Application")


    ' Add a new document.
    oWord.Documents.Add


    ' Add some text.
    oWord.Selection.TypeText "This is some text."


    ' Save the document.
    'oWord.ActiveDocument.SaveAs Filename:="c:\mydoc.doc"




' fermer document sans sauver
oWord.Documents.Close (Word.WdSaveOptions.wdDoNotSaveChanges)   ' Clear the variable from memory.
    Set oWord = Nothing


  ' Quit Word.
     DisplayAlerts = False




   ' Application.Quit  
'    Word.Application.Quit
'    Word.ActiveWindow.Close
'    WordApp.Quit
    
End Sub

les 4 dernieres lignes ne fonctionnent pas: le document est fermé mais word reste actif et se ré ouvre une deuxième une troisième... fois et plante le pc 

donc comment faire pour fermer l'application word
 j'ai activé word librairy et office librairy dans les références.

d'avance merci

raph

Legnia · Accepted Answer

T'as essayé  oWord.quit ?

Legnia

raphael_george · Answer

Merci pour ton intéret, 
oui mais .quit ne fermer pas l'application word
aurais tu une autre idée??

merci

raphael_george · Answer

ok c'est bon mais j'avais placer
set oWord=Nothing avant et cela posait probleme
merci

Quitter word

3 réponses

Votre réponse

Discussions similaires