Discussion :

[syntax_error]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[groslou2]

Tu as essayé en faisant juste xlApp.Quit au lieu de xlApp.Application.Quit?

[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..

[groslou2]

Essaye en remplaçant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[syntax_error]

Merci pour ta répons groslou2.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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