Processus Excel.exe qui reste actif

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:

---

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

---

Dans Workbook_Open, j’ai ceci :

Code:

---

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:

---

1 2 3 4

Recordset_A.Close Connexion_A.Close Set Recordset_A = Nothing Set Connexion_A = Nothing

---

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

Code:

---

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

---

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 ;)

Citation:

---

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".:ccool:

Re,il faut passer sans doute par

Code:

---

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

---

Bonjour.

Citation:

---

Envoyé par Neowile

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

---

Tu quittes excel comment?

PGZ

Simplement par le menu Fichier->Quitter

Re,à tester

Code:

---

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:

---

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

---

Kiki29,

juste une remarque.

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

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

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

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

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

Re,voir le lien proposé plus haut

Citation:

---

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

---

Re,

Citation:

---

Envoyé par Neowile

Simplement par le menu Fichier->Quitter

---

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

PGZ

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:

---

1 2 3 4

Recordset_A.Close Connexion_A.Close Set Recordset_A = Nothing Set Connexion_A = Nothing

---

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

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:

---

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:

---

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

---

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

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

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:

---

1 2 3 4 5 6

Connexion_A.Close Set Connexion_A = Nothing If Connexion_A Is Nothing Then MsgBox ("ok") end if

---

Merci