Fermeture de ttes les gfenetres actives

Public Sub Word_Création_Lien_OLE()

On Error Resume Next ' Retarde la récupération d'erreur.

' La fonction Getobject appelée sans le premier argument
'  renvoie une référence à une occurrence de l'application Word.
'  Si l'application n'est pas en exécution,
'   une erreur se produit et on utilise l'erreur.
'  Noter la virgule utilisée en tant que premier espace réservé d'argument.

Set Word_Application = GetObject(, "Word.Application")

If Err.number <> 0 Then
     Set Word_Application = CreateObject("Word.Application")
End If

Err.Clear    ' Efface l'objet Err au cas où une erreur s'est produite.

End Sub

Public Function Word_Nombre_documents_ouverts() As Byte

Word_Création_Lien_OLE
Word_Nombre_documents_ouverts = Word_Application.Documents.Count

End Function

Public Sub Word_Quitter()

' Si cette copie de Microsoft Word n'était pas déjà en exécution
'  lorsque vous l'avez utilisée,
'  elle est fermée à l'aide de la méthode Quit de la propriété Application
'  puis le lien est rompu
'  sinon l'application et le lien sont conservés.
' Notez que si vous tentez de quitter Microsoft Word,
'  la barre de titre Microsoft Word clignote et
'  Microsoft Word affiche un message vous demandant si
'  vous souhaitez enregistrer les fichiers chargés.
Dim Doc
Word_Création_Lien_OLE
If Word_Nombre_documents_ouverts = 0 Then
      For Each Doc In Word_Application.Documents
         Doc.Save
         Doc.Close 'savechanges:=wdDoNotSaveChanges (si tu veux pas enregistrer enlèves le Doc.Save et mets ça)
     Next Doc
     Word_Application.Quit
End If

End Sub

                ___
            ,-'"   "`-.
          ,'_          `.  
         / / \  ,-       \ 
    __   | \_0 ---        |
   /  |  |                |
   \  \  `--.______,-/    |
 ___)  \  ,--""    ,/     |
/    _  \ \-_____,-      / 
\__-/ \  | `.          ,'  
  \___/ <    ´--------'    
   \__/\ |              
    \__//