N'arrive pas à quitter Excel

Version imprimable

Bonjour,

Je travaille sur une base de données Access2007, depuis laquelle j'ouvre Excel2007 pour une extraction de données.

Problème : après demande de fermeture de l'application dans mon code, le processus reste actif...

Voici 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
23
24
25
26
27
28
29
30
31
32
33
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim nbLignes As Integer
 
 
    'Mise en page du document
    Set xlApp = New Excel.Application
 
    With xlApp
        .Visible = False
        Set xlBook = xlApp.Workbooks.Open("C:\~~~~\Catalogue_BO.xls")
    End With
 
    Set xlSheet = xlBook.Sheets("Requete_Temporaire")
    xlSheet.Activate
 
 
    ...
    MON TRAITEMENT (Mise en forme de cellules)
    ...
 
 
    Set xlSheet = Nothing
    DoEvents
 
    xlBook.Close True
    DoEvents              'Attend la sauvegarde/fermeture du doc avant de quitter l'appli...
 
    xlApp.Application.Quit     'Je demande de quitter l'appli
 
    Set xlBook = Nothing
    Set xlApp = Nothing       'Libère la mémoire

:koi:

Quelqu'un aurait une idée ?
Merci d'avance

15/03/2011, 16h17
groslou2

Tu as essayé en faisant juste xlApp.Quit au lieu de xlApp.Application.Quit?
15/03/2011, 16h27
syntax_error

Oui, c'est parce que xlApp.Quit ne fonctionne pas que j'ai essayé cette syntaxe.

D'ailleurs, le processus EXCEL.exe disparait de la liste lorsque je quitte mon appli Access.
On peut donc supposer qu'il reste un objet excel ouvert qui empêche la fermeture de l'application..

Essaye en remplaçant:

Code:

1
2
3
4
5
6
7
8
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim nbLignes As Integer
 
 
    'Mise en page du document
    Set xlApp = New Excel.Application

par:

Code:

1
2
3
4
5
6
7
8
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Dim nbLignes As Integer
 
 
    'Mise en page du document
    Set xlApp = CreateObject("Excel.Application")

et en mettant xlApp.Quit

15/03/2011, 17h40
syntax_error
Merci pour ta répons groslou2.

J'ai réussi à pointer le problème : pendant mon traitement, je fais
Code:

1 2 xlSheet.Range("I" & i) = "*" Selection.Interior.ColorIndex = 2
L'application ne quitte pas tant que la sélection est active.
Je cherche maintenant le moyen de la désactiver.

Toute aide sur ce point sera également la bienvenue:)