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

[Tofalu]

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

ça doit y être quelque part. On parle alors de liaison tardive. Cela permet de résoudre pas mal de soucis d'automation parfois.

Quelque fois, des méthodes d'OCX ou de DLL échoue et une déclaration en object résoud tout.

L'idéal est donc de déclarer en Excel.Application pour bénéficier de l'aide à la saisie dans l'éditeur puis, à la fin, avant la compilation, de remplacer par Dim xl As Object

[fbourdon]

Merci Tofalu !

Je crois que j'ai encore de sacrés progrès à faire...dans ce métier d'informaticien on apprend tous les jours , quelque soit notre âge...Et moi qui ne suis venu que sur le tard à la POO...

Merci pour tous vos conseils , si précieux (et vous ne savez pas à quel point...)

Bien amicalement à tous ! Bonne soirée, et .. Merci !

Fbourdon
Genève