Discussion :

[RJDTGA]

Bonjour,
Après avoir ouvert excel via vba, Excel reste actif (visible dans taskmanager) et ne cloture que si je ferme mon application access. Comment forcer excel à fermer sans sortir de mon application? Voici le code que j'utilise (et qui ne marche pas):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim AppExcel As Object
 
    'Ouvrir excel
    Set AppExcel = New Excel.Application
 
     ' mes manip dans excel
 
    'Fermer excel
    AppExcel.Quit
    Set AppExcel = Nothing

' util???

Merci!

[argyronet]

Bonjour,

Merci de ...

De quelle version d'Excel s'agit-il ?
Et aussi quel service pack ?

Argy

[EddiGordo]

Bonjour,

Il est probable que tu références un objet Excel que tu ne libères pas et donc qui empêche la fermeture de ton objet principal "AppExcel".
Par exemple, si tu as quelque chose du genre :

Code :

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

1
2
Dim xlWkb As Excel.WorkBook
Set xlWkb = AppExcel.WorkBooks.Open("C:\MonFichier.Xls")

et que tu ne fais pas, en sortant, quelque chose comme :

Code :

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

1
2
xlWkb.Close True
Set xlWkb = Nothing

Tu risques ce genre de problèmes.

Il faudrait que tu nous développes ton :

Code :

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

    ' mes manip dans excel

[argyronet]

Bonjour,

Il est probable que tu références un objet Excel que tu ne libères pas et donc qui empêche la fermeture de ton objet principal "AppExcel".
Par exemple, si tu as quelque chose du genre :

Code :

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

1
2
Dim xlWkb As Excel.WorkBook
Set xlWkb = AppExcel.WorkBooks.Open("C:\MonFichier.Xls")

et que tu ne fais pas, en sortant, quelque chose comme :

Code :

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

1
2
xlWkb.Close True
Set xlWkb = Nothing

Tu risques ce genre de problèmes

Un

Code :

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

Application.Quit

n'invite pas forcément à faire appel à la méthode Close de l'objet Workbook surtout si un

Code :

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

Application.DisplayAlerts = False

est invoqué !

Par ailleurs, EddiGordo, il s'avère qu'RJDTGA libère bien son objet...

J'ai demandé la version, en connaissance de cause, car une certaine version d'Office ne sait pas "killer" un process correctement lorsque que ce dernier est créé avec OLE.

Argy

[EddiGordo]

Bonsoir Argyronet,

Je m'excuse d'insister mais ce n'était qu'un exemple que je voulais citer et tu m'as mal compris (ou je me suis mal expliqué et je m'en excuse).

Ce n'était pas l'utilisation de la méthode Close de l'objet workbook qui se voulait importante dans ma démonstration; je voulais plutôt mettre l'accent sur la libération de l'objet xlWkb instancié en exemple. Pour faire plus "propre", j'ai utilisé la méthode Close avant de procéder à cette libération. Ce qui à pu provoquer le quiproquo.

Je persiste à affirmer haut et fort que créer une référence vers un objet interne à un objet Excel.Application sans la libérer empêchera la fermeture de celui-ci, même par .Quit, et ce avec ou sans DisplayAlerts... On peut d'ailleurs le vérifier facilement en pas à pas et en observant les processus dans le gestionnaire de tâches.

[argyronet]

..........ou je me suis mal expliqué ........................ Ce qui à pu provoquer le quiproquo.

Oui, c'est un peu ça en fait...

Je persiste à affirmer haut et fort que créer une référence vers un objet interne à un objet Excel.Application sans la libérer empêchera la fermeture de celui-ci, même par .Quit, et ce avec ou sans DisplayAlerts... On peut d'ailleurs le vérifier facilement en pas à pas et en observant les processus dans le gestionnaire de tâches.

Et là, c'est clair...
IL fallait insister sur le

Code :

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

Set xlWkb = Nothing

d'où la nécessité que tu soulignes d'obtenir son code complet.
Toutefois, de mon coté et à mon tour, je persiste à affirmer haut et fort que créer une référence vers un objet interne à un objet Application.xxxx Office peut, selon sa version, provoquer un comportement identique alors que tous les objets sont libérés et ce, que l'appel se fasse en Late ou en Early Binding.

Argy