Problème Quitter Word [Résolu]

[aaliyan]

Bonjour,
j'ai un problème pour quitter word, en fait, j'ai une fonction qui vérifie si un .doc est ouvert, et si oui, il le ferme sinon, rien.
Mon problème est que, après avoir fermé le .doc, je veux quitter word, mais je n'y arrive pas. Voilà mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
With fs
    .Lookin = rs.Fields(0)
    .SearchSubFolders = True
    .FileName = Fichier & ".doc"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Chemin = .FoundFiles(i)
            If FichierEstOuvert(Chemin) Then
               Set DocWord = GetObject(Chemin)
               DocWord.Activate
               DocWord.Close True
               Set DocWord = Nothing
            End If
            With Wd
                .Visible = True
                .Documents.Open Chemin
                .Activate
            End With
            Next i
            Exit Sub
    End If

Merci de votre aide.

[dadavyvy]

Bonjour, tout d'abord, rajoute des balises de code #, ça sera plus lisible...
Ensuite, dans quelle application tu travailles? VBA-W? VBA-E? VBA-A? ou autre?
Et puis, c'est quoi "fs" et "rs"? J'en ai bien une idée, mais j'aimerai bien que tu le dises clairement pour qu'on puisse comprendre ton code. Ou est-ce que ça bug? Je ne vois pas ou dans ton code, tu quittes une appli Word. Tu as un GetObject (<>GetFile) qui doit être ton appli, mais tu dois le considérer comme un document Word... Tu essaies donc de fermer un document avec la commande Close, mais apparemment docWord est une application...
qq exemples :

Code :

1
2
3
4
5
6
' Creation d'une instance d'application Word
Set wordApp = CreateObject("Word.Application")
' Ouverture d'un document word
Set docWord = wordApp.Documents.Open("c:\chemin\fichier.doc")
docWord.Close False
wordApp.Quit

[aaliyan]

Merci, mais j'ai trouvé :

Code :

DocWord.Parent.Quit