Discussion :

[filiplarlibe]

Bonjour à tous,

J'aurais besoin d'un petit coup de main pour un souci que j'ai remarqué depuis maintenant un moment.
Je génère un rapport sur l'événement Open d'excel. Cet excel est lancé par un batch lui même lancé par une tâche planifiée de Windows.
Ca marche plutôt bien mais j'ai remarqué qu'après l'éxécution, le processus Excel était encore en cours d'éxécution. Et je n'arrive pas à faire en sorte que lorsque le fichier excel se quitte, le processus ne soit plus en mémoire.
Voici le code que j'utilise en fin d'exécution de l'excel :

Code :

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

1
2
3
4
5
6
7
 
ThisWorkbook.Save
 
' clear clipboard
Application.CutCopyMode = False
 
Application.ScreenUpdating = True

J'ai essayé de mettre un Application.quit, ... mais rien n'y fait.
Est-ce que vous pourriez m'aider à voir ce qu'il faudrait que je mette pour que cela puisse enlever le processus en mémoire ?

Merci par avance pour votre aide.

Cordialement,

[jurassic pork]

Hello,
et un Application.Quit ne fonctionne pas ?
Ami calmant, J.P

[filiplarlibe]

Non, j'ai encore retesté hier soir, et même avec un application.quit le processus Excel reste en mémoire.

Après, l'Excel est lancé par un vbs qui lui même est lancé par une tâche windows planifiée.

Est-ce que ça pourrait venir de là ?

Merci pour votre aide.

[filiplarlibe]

Par contre, j'ai oublié de préciser une chose qui peut peut-être être importante.

Lors de la génération de ce rapport, je copie des lignes du fichier excel vers un autre fichier excel. (je vais mettre à jour un fichier excel partagé).
Est-ce que ce ne serait pas le processus de ce fichier excel qui est encore en éxécution ?

Merci d'avance pour votre aide ou vos réponses.

[jurassic pork]

et en faisant un taskkill /f /im excel.exe à la fin du batch (si il n'est pas lancé en arrière plan) ?

[filiplarlibe]

En fait, je fais un kill dans le vbs avant de lancer le fichier excel.

Mais le problème c'est qu'actuellement je lance plusieurs rapports à la suite et certains prennent un certain temps.
Du coup, j'ai peur de killer un processus d'un autre rapport.

De plus en ce moment j'ai un autre problème pour un rapport :
- Je me connecte à une base de données ORACLE et j'exécute une requête SELECT (qui peut prendre jusque 5-6 min environ) et depuis quelques temps (alors qu'avant tout fonctionnait), le rapport reste bloqué sur le requête sans que celle-ci ne s'exécute.

Je me demande si ces 2 problèmes ne seraient pas liés.

Mais je n'arrive pas à comprendre pourquoi le Application.quit ne fonctionne pas.

Merci pour votre aide.

[filiplarlibe]

En réfléchissant un peu, est-ce que le problème ne viendrait pas du vbs.
Voici le code du vbs :

Code :

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

1
2
3
4
5
6
7
 
Set ObjExcel = CreateObject("excel.application")
Set ObjWB = ObjExcel.Workbooks.Open("Fichier.xlsm")
 
ObjWB.Close False
ObjExcel.Quit
Set ObjExcel = Nothing

Est-ce que le problème ne viendrait pas de là justement ? Un problème dans le vbs ?

Merci par avance.

[jurassic pork]

est-ce que tu as un Excel qui tourne ( à voir dans le gestionnaire de tâches windows car il peut y en avoir un en arrière plan)au moment où tu lances ton script ?

[joe.levrai]

Bonjour,

je te déconseille de positionner ta procédure dans l'évènement auto_open.

Place la dans un module standard, et tu appelles directement la procédure dans le vbs

un exemple que j'utilise au quotidien, le vbs :

Code :

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

1
2
3
4
5
6
7
Set AppExcel = CreateObject("Excel.Application")
With AppExcel
    .Visible = True
    Set Wb = .Workbooks.open("CheminCompletDuFichier")
    .Run "NomDeLaProcedure"
    .Quit
end With

Ainsi, tu délègues à Excel la charge de renvoyer la main au vbs pour quitter l'application

[DAH]

En solution de secours, exécuter ce VBScript:

--- CloseOrKill.vbs ---
Set oSh=CreateObject("WScript.Shell")
Set oWMi=GetObject("winmgmts:/root/cimv2")
Set colProcs=oWmi.ExecQuery( _
"SELECT * FROM Win32_Process " & _
"WHERE Name='excel.exe'")
For Each oProc In colProcs
If oSh.AppActivate(oProc.ProcessId) Then
WScript.Sleep (100)
oSh.SendKeys "%{F4}" ' WM_CLOSE
WScript.Sleep (2000)
If oSh.AppActivate(oProc.ProcessId) Then
oProc.Terminate () ' Kill
End If
End If
Next
--- CloseOrKill.vbs ---

[filiplarlibe]

Bonjour,

Merci beaucoup pour votre retour.
Effectivement avec un kill derrière dans le vbs ou le batch ça fonctionne.