Discussion :

[fbourdon]

Bonjour à tous !

J'ai créé une procédure d'impression facture (export depuis ACCESS vers EXCEL) qui marche parfaitement...sauf que dans le gestionnaire des tâches EXCEL reste actif .

Dans le code j'ai bien mis :

Code :

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

1
2
3
4
5
6
 
Option Compare Database
Option Explicit
Public xl As Excel.Application
Public wbk As Excel.Workbook, wst As Excel.Worksheet
Dim db As DAO.Database, rst As DAO.Recordset

et plus loin :

Code :

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

1
2
3
4
5
6
7
8
 
 
       wbk.Close SaveChanges:=False
       xl.Quit
       rst.Close
       Set rst = Nothing
       Set db = Nothing
       Set xl = Nothing

J'ai bien essayé d'aller voir sur MSDN les syntaxes du :

System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)

c'est une véritable jungle , et les avis divergent d'ailleurs ...

avez-vous une idée d'une syntaxe simple pour arrêter Excel ???

D'avance , Merci!

Fbourdon

[fgiambelluco]

Bonjour
C'est un problème que je trouve réccurent sur ce forum, hors moi je n'ai pas ces soucis.
Je suis peut être un peu viello , mais j'utilise cette syntaxe

Code :

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

Set xl = CreateObject("Excel.Application")

et l'application Excel disparait de la mémoire

[fbourdon]

Merci de ta réponse...mais ça ne change rien

J'avais auparavant la ligne suivante :

Code :

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

1
2
3
4
 
Public xl As Excel.Application
.......................
Set xl = New Excel.Application

que j'ai remplacée par la tienne

Code :

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

1
2
3
4
 
Public xl As Excel.Application
..........
Set xl = CreateObject("Excel.Application")

J'avoue ma perplexité ...

Bien amicalement ,

Fbourdon

[fgiambelluco]

Bonjour
Voila le code que j'ai testé :

Code :

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

1
2
3
4
5
    Dim xl As Excel.Application
    Set xl = CreateObject("excel.application")
    xl.Visible = True
    xl.Quit
    Set xl = Nothing

8 secondes environ après la fin du programme, l'application Excel.exe disparait des processus.(Windows Vista)
Donc je ne vois pas

[Tofalu]

Essaye voir en déclarant l'objet en Object et non en Excel.Application.

Code :

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

1
2
3
 
Dim xl as Object
Set xl = CreateObject("Excel.Application")

[fbourdon]

Merci Tofalu , c'est génial !

ça faisait un mois et + que j'essayais de résoudre ce pb avec les Threads , les GetProcessById , et j'en passe....

C'est incroyable quand même que genre de choses ne soit pas explicité dans l'aide VBA ...

Bonne soirée à tous , Grand-Merci !

Fbourdon
Genève