Excel reste ouvert

Signaler
Messages postés
4
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
26 janvier 2005
-
Messages postés
4
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
26 janvier 2005
-
Bonjour...
J'ai une question relative à l'utilisation de l'objet Excel.Application
En effet, j'ai une Sub dans laquelle
-je déclare mon objet [ Dim objXL as Excel.Application ],
-je l'instancie [ Set objXL = CreateObjet("Excel.Application") ],
-j'ouvre un fichier Excel [objXL.Workbooks.Open("file.xls") ],
-je travaille dedans...,
-je ferme le document [ objXL.Workbooks.Close ],
-je quitte Excel [ objXL.Quit ]
-je détruit la référence [ Set objXL=Nothing ]
Mais, à la fin, j'ai toujours EXCEL.EXE qui reste en mémoire, et qui est visible dans le Gestionnaire de Taches. Je suis obligé de le détruire à la main.
Comment faire pour détruire complètement cet objet, et ne plus l'avoir en mémoire??
Je signale que lorsque je travaille avec Word.Application, je n'ai pa le même problème. Je suis sous Windows NT 2000, et j'ai Excel 2000.
Merci d'avance pour vos réponses...

6 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut

As-tu excel déjà chargé avant de lancer ton appli ?

Cordialement, CanisLupus
Messages postés
4
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
26 janvier 2005

Non, Excel n'est pas charég avant lancement...
Ce problème relève d'autre chose...
Merci
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
J'utilise pourtant le même code que toi pour certaines actions sur des classeurs excel et je n'ai pas le même souci, ni avec excel97 ni avec excel2002.

Si tu n'utilises CreateObjet("Excel.Application") qu'une seule fois, je ne vois pas où est le problème, sauf si le prog plante avant l'instruction quit.

Revois quand même ton code en détail. S'il n'y a pas d'autre solution, on peut passer à une autre solution (tuer le process dans la liste des tâches) mais c'est vraiment un dernier recours.

Cordialement, CanisLupus
Messages postés
4
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
26 janvier 2005

CanisLupus,
Je n'utilises qu'une seule fois le CreateObject(...), mais j'ai toujours ce problème...
Je ne pense pas être le seul dans ce cas, parce qu'il existe d'autres posts ici soulevant ce problème... Par exemple celui qui s'intitule "KILL EXCEL.EXE"
J'ai bien vérifié mon code, et il est "propre"
Je signale que l'application ne reste pas active quand j'exécute sur une machine avec Excel 97... Pour moi, Excel 2000 n'y serait pas étranger, oups!!, sans offenser personne...
Je te propose de passer à la solution radicale: tuer le process dans la liste de tâches... Pourrais-tu m'indiquer comment faire??
Merci d'avance...
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
luc009fr
Voilà un code qui te permettra de tuer le process que tu souhaites.
Le code d'origine n'est pas de moi et je ne me souviens plus où je l'ai trouvé. Je l'ai seulement expurgé et adapté. Avec qques commentaires en plus.
Dans cette version, en appelant KillProcessus "excel.exe"
, si tu as plusieurs sessions d'excel, ça te les tue toutes.
J'ai testé avec win98SE et XP(SP1) et ça fonctionne correctement. Pour les autres versions de Windows c'est à tester.

Donc, tu mets le code qui suit dans un module de ton appli et tu appelles KillProcessus après ta procédure de fermeture normale.

'
' UTILISATION : KillProcessus "excel.exe"
'


' Types
Private Type LUID
LowPart As Long
HighPart As Long
End Type


Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type


Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type


Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type


' Constantes
Private Const PROCESS_QUERY_INFORMATION = 1024
Private Const PROCESS_VM_READ = 16
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const SYNCHRONIZE = &H100000
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const TH32CS_SNAPPROCESS = &H2&
Private Const hNull = 0
Private Const PROCESS_TERMINAT = &H1
Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege"
Private Const SE_PRIVILEGE_ENABLED = &H2


' Fonctions API
Private Declare Function CloseHandle Lib "Kernel32.dll" _
( _
ByVal Handle As Long _
) As Long


Private Declare Function OpenProcess Lib "Kernel32.dll" _
( _
ByVal dwDesiredAccessas As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcId As Long _
) As Long


Private Declare Function TerminateProcess Lib "kernel32" _
( _
ByVal hProcess As Long, _
ByVal uExitCode As Long _
) As Long

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" _
( _
ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, _
NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, _
ReturnLength As Long _
) As Long


Private Declare Function OpenProcessToken Lib "advapi32.dll" _
( _
ByVal ProcessHandle As Long, _
ByVal DesiredAccess As Long, _
TokenHandle As Long _
) As Long


Private Declare Function LookupPrivilegeValueA Lib "advapi32.dll" _
( _
ByVal lpSystemName As String, _
ByVal lpName As String, _
lpLuid As LUID _
) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" _
( _
) As Long


Private Declare Function Process32First Lib "kernel32" _
( _
ByVal hSnapshot As Long, _
uProcess As PROCESSENTRY32 _
) As Long

Private Declare Function Process32Next Lib "kernel32" _
( _
ByVal hSnapshot As Long, _
uProcess As PROCESSENTRY32 _
) As Long

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
( _
ByVal lFlags As Long, _
lProcessID As Long _
) As Long


Public Function ProcessTerminate(Optional lProcessID As Long) As Boolean
Dim lhwndProcess As Long
Dim lExitCode As Long
Dim lRetVal As Long
Dim lhThisProc As Long
Dim lhTokenHandle As Long
Dim tLuid As LUID
Dim tTokenPriv As TOKEN_PRIVILEGES, tTokenPrivNew As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long


On Error Resume Next

If lProcessID Then

' Modification des privilèges de la tâche,
' la plupart du temp, on peut s'en passer
' mais ça dépend des process.
'***
lhThisProc = GetCurrentProcess
OpenProcessToken lhThisProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lhTokenHandle
LookupPrivilegeValueA "", SE_DEBUG_NAME, tLuid
tTokenPriv.PrivilegeCount = 1
tTokenPriv.TheLuid = tLuid
tTokenPriv.Attributes = SE_PRIVILEGE_ENABLED
AdjustTokenPrivileges lhTokenHandle, False, tTokenPriv, Len(tTokenPrivNew), tTokenPrivNew, lBufferNeeded
'***

' Destruction du process
lhwndProcess = OpenProcess(PROCESS_TERMINAT, 0, lProcessID)
If lhwndProcess Then
ProcessTerminate = CBool(TerminateProcess(lhwndProcess, lExitCode))
CloseHandle lhwndProcess
End If

End If

On Error GoTo 0

End Function


Public Function KillProcessus(ByVal sProcessNameExe As String) As String
Dim i As Integer
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long


' Création d'une vue sur l'ensemble des process en cours
' avec leurs heaps, modules et threads
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
' S'il n'y en a pas --> exit
If hSnapshot = 0 Then Exit Function

' Init de la taille de la variable de réception des infos
uProcess.dwSize = Len(uProcess)

' Parcours des process de la liste
r = Process32First(hSnapshot, uProcess) ' le 1er
Do While r
' Si le nom de l'exe est dans la chaine lue
If InStr(LCase(uProcess.szExeFile), LCase(sProcessNameExe)) <> 0 Then
ProcessTerminate uProcess.th32ProcessID ' on le détruit
End If
r = Process32Next(hSnapshot, uProcess) ' le suivant
Loop


End Function



Cordialement, CanisLupus
Messages postés
4
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
26 janvier 2005

Merci CanisLupus!!
Le processus Excel est bien détruit.
Mon problème est réglé...
Je réfléchirai ultérieurement à la cause profonde de la présence d'excel vivant dans la liste de processus...
A très bientot!!