Processus Excel.exe qui reste actif

**Neowile** · 02/03/2011, 11h39

Bonjour,

Je me connecte à une base de données HF C/S à partir d'Excel. Je lis simplement le contenu du recordset dont les données proviennent d'une simple requête. Tout fonctionne bien mais quand je quitte Excel, le processus Excel.exe reste actif.
Beaucoup dise de tuer le processus mais comment tuer le processus Excel quand on est dans Excel...?

Quelqu'un a-t-il déjà rencontré ce problème?

Merci d'avance

Voici ce que je fais :

Dans déclaration du module1, j’ai ceci :

Code :

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

1
2
Public Connexion_A As New ADODB.Connection
Public Recordset_A As New ADODB.Recordset

Dans Workbook_Open, j’ai ceci :

Code :

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

1
2
3
4
5
Connexion_A.Open "DRIVER={HyperFileSQL};ANA=D:\Mes Projets\Axx\Axx.wdd;Server Name=192.168.0.1;Server Port=4900;Database=Axx;UID=admin;PWDXX="
    Recordset_A.CursorLocation = adUseClient
    Recordset_A.ActiveConnection = Connexion_A
    Recordset_A.Source = "select * from Articles "
    Recordset_A.Open , , adOpenStatic, adLockOptimistic, adCmdText

Copie du contenu du recordset dans une feuille …

Code :

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

1
2
3
4
    Recordset_A.Close
    Connexion_A.Close
    Set Recordset_A = Nothing
    Set Connexion_A = Nothing

**kiki29** · 02/03/2011, 11h50

Salut,une méthode brutale qui ferme toutes les sessions ouvertes d'Excel

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Sub Kill()
Dim RetVal As Long
    '   Parametres Taskkill
    '   http://technet.microsoft.com/en-us/library/bb491009.aspx
    RetVal = Shell("Taskkill /im Excel.exe /f", 0)
End Sub

**Neowile** · 02/03/2011, 12h02

Salut,

merci de ton aide mais c'est un peu trop radical car mes collègues travaillent beaucoup avec Excel et si ils perdent des informations parce qu'ils n'ont pas enregistrer leurs fichiers, je suis mort

**Godzestla** · 02/03/2011, 13h18

Salut,une méthode brutale qui ferme toutes les sessions ouvertes d'Excel

Merci kiki29,

cela fait longtemps que je cherche cette technique en version "courte".

**kiki29** · 02/03/2011, 14h01

Re,il faut passer sans doute par

Code :

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

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

**pgz** · 02/03/2011, 14h01

Bonjour.

Envoyé par Neowile

Tout fonctionne bien mais quand je quitte Excel, le processus Excel.exe reste actif.

Tu quittes excel comment?

PGZ

**Neowile** · 02/03/2011, 14h05

Simplement par le menu Fichier->Quitter

**kiki29** · 02/03/2011, 14h18

Re,à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 
Sub KillPID()
Dim RetVal As Long
Dim iPid As Long
 
    '   Parametres Taskkill
    '   http://technet.microsoft.com/en-us/library/bb491009.aspx
    iPid = GetCurrentProcessId
    RetVal = Shell("Taskkill /pid " & iPid & " /f", 0)
End Sub

Pour avoir un message de confirmation pour sauvegarde avant fermeture

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub KillPID_Msg()
Dim RetVal As Long
Dim iPid As Long
 
    '   Parametres Taskkill
    '   http://technet.microsoft.com/en-us/library/bb491009.aspx
    iPid = GetCurrentProcessId
    RetVal = Shell("Taskkill /pid " & iPid)
 
End Sub

**Godzestla** · 02/03/2011, 14h24

Kiki29,

juste une remarque.

Peut-être que l'utilisation du nom Kill devrait évitée vu la méthode du même nom.

-----Edit---
je vois que tu viens d'y penser. merci.

**kiki29** · 02/03/2011, 14h28

Arff,pas fait de [F5], oui effectivement ,on ne sait jamais avec ce genre de voisinage de mots réservés

**Neowile** · 02/03/2011, 14h49

si j'enlève le "/f" de taskkill, le processus ne se ferme pas.

J'appelle la fonction KillID dans beforeclose. C'est correcte?

**kiki29** · 02/03/2011, 15h22

Re,voir le lien proposé plus haut

http://technet.microsoft.com/en-us/l.../bb491009.aspx

**pgz** · 02/03/2011, 15h45

Re,

Envoyé par Neowile

Simplement par le menu Fichier->Quitter

Dans ton projet VBA, tu ne crées pas quelque part une application Excel?

PGZ

**Neowile** · 02/03/2011, 16h13

Non j'ai vraiment rien comme code mise à part celui cité ci-dessus...
Si je n'exécute pas ma macro contenant ADODB, mon fichier Excel se ferme normalement et le processus aussi.
Le problème vient de ceci pour moi :

Code :

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

1
2
3
4
    Recordset_A.Close
    Connexion_A.Close
    Set Recordset_A = Nothing
    Set Connexion_A = Nothing

**pgz** · 02/03/2011, 17h42

Re,

Comme tu n'utilises pas de Command, cela me semble une façon très correcte de fermer le jeu d'enregistrements et la connection.

Perso, j'utilise souvent ADODB et je n'ai jamais vu cela.

Comme cela, en aveugle, je sèche.

Saurais-tu faire un classeur simplifié avec le pb?

PGZ

**Neowile** · 02/03/2011, 18h28

Après plusieurs tests, j'en conclus que le problème vient d'une incompatibilité entre la commande OPEN et le driver HyperfileSQL.
J'ai bon essayé ces 2 simples codes, je le même problème! De plus, le problème survient même quand la connexion échoue!

Code :

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

1
2
3
4
5
6
7
Dim cn
 
 Set cn = CreateObject("ADODB.connection")
 cn.Open "FILEDSN=A.dsn"
 
cn.Close
Set cn = Nothing

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Connexion_A As New ADODB.Connection
 
Sub Ouvre_DB_test()
 
Connexion_A.Open "DRIVER={HyperFileSQL};ANA=D:\Mes Projets\A\A.wdd;Server Name=192.168.0.201;Server Port=4900;Database=A;UID=admin;PWDXX="
 
Connexion_A.Close
 
Set Connexion_A = Nothing
 
MsgBox (Connexion_A.State)
 
End Sub

**patricktoulon** · 02/03/2011, 20h03

bonjour
tu a dis que tes colegues se servait de l'application exel
donc ca n'est pas peut etre pas toi le probleme

peut etre que générer un nouvelle application quand tu ouvre ton fichier en la nomant avec un variable et a la fermeture ne s'occuper que de cette occurence

j'ai lu ca quelque part dans la faq je ne sais plus ou mais ca y est c'est sur

au plaisir

**Neowile** · 03/03/2011, 10h03

Je voulais dire que si d'autres fichiers excel sont ouvert dans la même "session" (PID) d'excel, ils seront fermés d'office par le Taskkill.
Merci quand même

**Neowile** · 28/04/2011, 16h18

Je me permet de relancer la discussion car je n'ai toujours pas de solution.

Je suis certain que la connexion se ferme bien. Par contre, le Nothing n'a aucun effet!
Avec le test ci-dessous, il ne m'affiche pas le message "ok"

Code :

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

1
2
3
4
5
6
 
Connexion_A.Close
Set Connexion_A = Nothing
If Connexion_A Is Nothing Then
MsgBox ("ok")
end if

**Neowile** · 16/02/2012, 16h50

Merci

Processus Excel.exe qui reste actif

Macros et VBA Excel

Discussions similaires

Partager

Partager