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

[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