Discussion :

[Neowile]

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]

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]

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]

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]

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]

Bonjour.

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

Tu quittes excel comment?

PGZ

[Neowile]

Simplement par le menu Fichier->Quitter

[kiki29]

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]

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]

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

[Neowile]

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]

Re,voir le lien proposé plus haut

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

[pgz]

Re,

Simplement par le menu Fichier->Quitter

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

PGZ

[Neowile]

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]

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]

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]

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]

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]

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]

Merci