[AC-2003] Comment quitter Excel ? [Résolu]

[ChChatou]

Bonjour,
ma base Access ouvre des fichiers Excel et je n'arrive pas à fermer l'application Excel correctement:
j'utilise une séquence du genre:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim xlApp As Object                                
    Dim xlBook As Object                                
    Dim xlSheet1 As Object                             
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.workbooks.Open(CheminPP)          
    Set xlSheet1 = xlBook.Sheets("Data")
 
'  Suite de la procedure
 
 
    Set xlSheet1 = Nothing
' Fermer le classeur
    xlBook.Save                                   
    xlBook.Close
     Set xlBook = Nothing
' Fermer Excel
    xlApp.Quit                                   
    Set xlApp = Nothing

et, lorsque je ferme Access, Excel reste ouvert, ce que je constate dans le gestionnaire de tâches de windows (en faisant 'Ctrl/Alt/Sup' ).

Quelqu'un peut-il m'indiquer comment m'y prendre.
Mille mercis

[argyronet]

Bonjour,

Ce problème est connu et il existe une solution que j'ai fini par mettre au point ; Au moment de ton instanciation de xlApp, tu prends le HWnd de la fenêtre :

Code :

1
2
3
4
Set xlApp = CreateObject("Excel.Application")
lngXLHwnd = xlApp.HWnd
Set xlBook = xlApp.workbooks.Open(CheminPP)          
Set xlSheet1 = xlBook.Sheets("Data")

De là, après ta méthode Quit, tu forces la fermeture du process via l'API TerminateProcess() après avoir vérifié que xlApp est bien à Nothing et bien enentdu avant de l'affecter comme tel...

Argy

[Arkham46]

bjr,

avant de tuer le processus au bazooka, voir si les solutions exposées dans ce message règlent le problème :
http://www.developpez.net/forums/d92...ocessus-excel/

[argyronet]

Oui, Thierry, je suis d'accord.

Le fait que la méthode Quit échoue est de toute façon justifiée.
Quand je suggère un KillProcess, j'entends bien évidement que cela concerne une instance bien précise et indépendante.

Merci pour le lien;

Argy

[ChChatou]

bonsoir,

merci à tous les deux, je vais tester cela et je vous tiens au courant

A très bientôt

[marot_r]

Note que si ton classeur Excel est caché alors le .quit ne ferme pas proprement Excel. Il faut rendre le classeur visible explictement avant d'envoyer le .quit ... enfin cela marche la plus part du temps.

Code :

xlBook.visible=true

Note que cela produit parfois un effet de stroboscope assez désagréable.

A+

[ChChatou]

bonsoir,

merci pour cette piste, apparemment, ce n'est pas encore cela.

Je suis en train de bien vérifer que chaque instruction Excel est bien préfixée, comme indiqué dans le thread de discussion indiqué par Arkham46 mais je n'ai pas encore trouvé précisément ce qui pose problème.

Patience et longueur de temps......

[ChChatou]

Bonjour,
je n'ai toujours pas trouvé de solution.
Je me suis posé des questions sur l'utilisation de l'instruction 'GetObject' au lieu de 'CreateObject' et dans l'aide de Microsoft relative à cette instruction GetObject, il y a un exemple intéressant car, en exécutant tout simplement la routine 'GetExcel', je retrouve les mêmes symptômes: Excel reste ouvert alors que l'instruction .quit est utilisée normalement, qu'il n'y a pas de problème de préfixe et que l'application est visible....bref, je patauge.

Je ne me suis pas encore résolu à appliquer la méthode préconisée par Agyronet car je ne sais pas comment forcer la fermeture via l'API TerminateProcess.

A suivre , donc

[ChChatou]

re bonjour,
en cherchant dans les archives, j'ai bien trouvé l'API TerminateProcess. J'ai aussi trouvé une autre astuce de déclaration

Code :

Dim oApp as New Excel.application

.

Je vais essayer cela, a bientôt

[Thierry_PALLIER]

Bonjour ChChatou et tout le monde.

As-tu essayé de libéré les variable après xlApp.Quit ?
Perso, je ferme Excel directement sans fermer le fichier.
Et enfin, je pense que dans ton dernier message,tu es obligé de référencer Excel .
A+

[marot_r]

As-tu refais tes tests après un redemarrage de ta machine.

A+

[ChChatou]

bonjour,

j'ai testé le petit bout de code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub GetExcel()
Dim xlApp As New Excel.Application
Dim xlBook As Object
Dim xlSheet1 As Object
 
 Set xlBook = xlApp.workbooks.Open("C:\Documents and Settings\ac61440\Desktop\LUP_2PSI.XLS")
 Set xlSheet1 = xlBook.Sheets("Feuil3")
 
 xlApp.Application.Visible = True
 xlApp.Parent.Windows(1).Visible = True
 
 Set xlSheet1 = Nothing
 
 xlBook.Close (False)
 Set xlBook = Nothing
' Fermer Excel
 xlApp.Application.Quit
 Set xlApp = Nothing
 
End Sub

qui laisse Excel ouvert, je reste perplexe.

Merci de vos conseils
A bientôt

[ChChatou]

re-bonjour,

j'ai oublié de préciser que j'ai re-re-démarré la machine.

Cordialement

[argyronet]

Humm, de quelle version d'Exel s'agit-il ?
N'as-tu pas plusieurs versions d'Excel installées ?

Qu'est-ce que ça donne avec ton code modifié comme suit ?

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
34
35
36
37
38
39
40
 
Sub GetExcel(ByVal FileName As String)
Dim xlApp                                              As Excel.Application
Dim xlBook                                             As Object
Dim xlSheet1                                           As Object
 
    On Error GoTo GetExcel_Error
    Set xlApp = New Excel.Application
    With xlApp
        .Visible = True
        Set xlBook = .Workbooks.Open(FileName)
        With xlBook
            Set xlSheet1 = .Sheets("Feuil3")
        End With
        'à supprimer
        Debug.Print "CLOSE : On ferme puis on quitte..."
        '-------------
        xlBook.Close False
        .Quit
    End With
    'à supprimer
    '-------------
    DoEvents
    Debug.Print "EXECUTE : xlApp est " & IIf(xlApp Is Nothing, " détruit", "encore en mémoire")
    '-------------
    On Error GoTo 0
GetExcel_Exit:
    Set xlSheet1 = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    'à supprimer
    '-------------
    DoEvents
    Debug.Print "EXIT : xlApp est " & IIf(xlApp Is Nothing, "détruit", "encore en mémoire")
    '-------------
    Exit Sub
GetExcel_Error:
    MsgBox Err.Description, 48, Err.Source
    Resume GetExcel_Exit
End Sub

Argy

[Godzestla]

Bonjour,

personnellement je déclare XLAPP comme object et pour cloturer excel, je fais

Code :

XLApp.Application.Quit

J'ignore si cela peut avoir un impact.

Autrechose :
je teste également si excel est ouvert AVANT et je ne quitte excel que s'il ne tournait pas avant.

Ci-dessous, un code VBA Access qui me permet de faire tourner des macros de reformattage (macro Excel stockée dans un .XLS dédicacés) sur des fichiers excel bruts exportés par Acces (2003).

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
34
35
Sub Execute_Excel_Script(document As String, Excel_Workbook As String, Script_Folder As String, Excel_Script_File As String, Script_Name As String, Specific_param As Variant)
On Error Resume Next
Dim XLApp As Object
Dim ExcelWasNotRunning As Boolean    ' Indicateur de libération finale.
Dim FullScript As String
 
FullScript = Trim(Script_Folder) & Trim(Excel_Script_File)
 
Set XLApp = GetObject(, "Excel.Application")
If Err <> 0 Then
   Err.Clear
   ExcelWasNotRunning = True
   Set XLApp = CreateObject("Excel.application")
 Else
    ExcelWasNotRunning = False
End If
XLApp.Visible = True
Set XlWkb = XLApp.Workbooks.Open(FullScript)
 '
 ' ici nous lançons les macros automatiques d'Excel mais vous pouvez mettre du code
 '
XlWkb.RunAutoMacros xlAutoOpen
 
XLApp.Run Script_Name, document, Excel_Workbook, Excel_Script_File, Specific_param
 
XlWkb.Close
If ExcelWasNotRunning = True Then
    XLApp.Application.Quit
End If
 
Set XlWkb = Nothing
Set XLApp = Nothing
 
 
End Sub

[ChChatou]

Bonsoir,

merci de vos conseils.

Pour ce qui est d'Excel, il s'agit de la version Excel 2003 avec Windows XP . Il s'agit d'une solution d'entreprise, que je ne peux pas changer car elle est installée et mise à jour par télédistribution. Les disques C sont bloqués pour que le personnel ne 'bidouille' pas les programmes et n'installe pas de version 'pirate' non compatible. Berf, la vraie vie....

Pour le reste, je vais tester ce soir suivant vos conseils.

Cordialement

[ChChatou]

re-bonsoir,

après avoir exécuté la routine d'Argyronet, j'ai ceci dans la fenêtre d'exécution:

Code :

1
2
3
CLOSE : On ferme puis on quitte...
EXECUTE : xlApp est encore en mémoire
EXIT : xlApp est détruit

Et Excel est toujours présent dans le gestionnaire des tâches.

A l'intention de Godzestla, j'ai testé l'ajout de .Application devant .quit, ça ne change rien.

J'ai également testé ce type de script pour détecter si Excel est déja ouvert, (je l'ai trouvé dans l'aide Excel, relative à GetObject, en cliquant dans l'exemple) on a le code ci-dessous:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
' Déclare les routines d'API nécessaires:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
                    ByVal lpWindowName As Long) As Long
 
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long
 
Sub GetExcel()
Dim MyXL As Object    ' Variable devant contenir la
                            ' référence à Microsoft Excel.
Dim ExcelWasNotRunning As Boolean    ' Indicateur de libération finale.
Dim XlSheet1 As Object
 
' Test pour déterminer si une copie de Microsoft Excel
' est déjà en exécution.
On Error Resume Next    ' Retarde la récupération d'erreur.
' La fonction Getobject appelée sans le premier
' argument renvoie une référence à une instance de
' l'application. Si l'application n'est pas en
' exécution, une erreur se produit.
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear     ' Efface l'objet Err si une erreur s'est produite.
 
' Vérifie si Microsoft Excel est en exécution.
' Dans ce cas, l'ajoute à la table Running Object.
DetectExcel
 
' Définit la variable objet faisant référence au fichier à ouvrir.
Set MyXL = GetObject("C:\Documents and Settings\ac61440\Desktop\LUP_2PSI.XLS")
 
' Affiche Microsoft Excel par l'intermédiaire de sa
' propriété Application. Affiche ensuite la fenêtre
' contenant le fichier à l'aide de la collection
' Windows de la référence à l'objet MyXL.
 MyXL.Application.Visible = True
 MyXL.Parent.Windows(1).Visible = True
    ' Effectue des opérations sur votre
Set XlSheet1 = MyXL.Sheets("Feuil3")
XlSheet1.Cells(74, 4) = "COUCOU"
 
Set XlSheet1 = Nothing
 
MyXL.Close (True)
    ' ...
' Si cette copie de Microsoft Excel n'était pas en cours
' d'exécution lorsque vous avez commencé, fermez-la
' à l'aide de la méthode Quit de la propriété
' Application.
' Notez que si vous tentez de quitter Microsoft Excel,
' la barre de titre clignote et un message s'affiche
' vous demandant si vous souhaitez enregistrer les
' fichiers chargés.
If ExcelWasNotRunning = True Then
    MyXL.Application.Quit
End If
 
Set MyXL = Nothing  ' Libère la référence à l'application
                          ' et à la feuille de calcul.
End Sub

j'ai toujours le même problème: en fin d'exécution, je me retrouve toujours avec une session d'excel ouverte dans le gestionnaire de tâches de Windows.

Merci à vous, à bientôt

[argyronet]

Humm, tu ne m'a pas évoqué la version ni la multi-installation...
Je sais de source sûre que Office 2000 présente (parfois mais de façon certaine pour Outlook) ce genre de comportement comme non résolvable sauf avec la méthode KillProcess que je t'ai suggéré.

Argy

[ChChatou]

Bonjour,

j'ai la version Excel 2003 sur Windows XP SP3. Je suis certain de ne pas avoir plusieurs versions d'installée dans la mesure où de disque système a été remasterisé récemment par le Service Informatique de l'entreprise.

Je comprends que ce n'est pas dû à la programmation et quel a seule porte de sortie consiste à tuer le process avec les routines du genre 'TerminateProcess'. C'est un compromis à avoir avec mes utilisateurs car cela va aussi fermer les autres occurences de l'applications qui pourraient tourner en parrallèle.

Je vais tester cela ce week-end et je vous tiens au courant.
Cordialement

[Godzestla]

Bonjour,

quelles version de Office 2003 as-tu ? SP3 ?

Jusqu'au SP2 j'avais des problèmes avec le Quit et le test de

Code :

1
2
3
If ExcelWasNotRunning = True Then
    XLApp.Application.Quit
End If

que j'avais carrément du désactiver.

Depuis le SP3, plus de problèmes de cette nature (mais d'autres....)