fermer un fichier excel et arreter le processus correspondant

Question

bonjour, j'ai ouvert un fichier excel, mais quand je le ferme (avec le code ci-dessous), mais le processus reste toujours ouvert. je pense que si j'utilise "kill process" tous les autres fichiers excel ouverts seront fermés.
voici le code utilisé:

        Dim xlsApp As Excel.Application
        Dim xlsWorkBook As Excel.Workbook
        Dim xlsWorkSheet As Excel.Worksheet
        Dim xxx As String
        xxx = Calcul_des_paramètres_supplémentaires.TextBox1.Text
        xlsApp = New Excel.Application
        xlsApp.Visible = False
        xlsWorkBook = xlsApp.Workbooks.Open(xxx)
        xlsWorkSheet = xlsWorkBook.ActiveSheet
        Do
            ComboBox1.Items.Add(xlsWorkSheet.Name)
            xlsWorkSheet = xlsWorkSheet.Next
        Loop While xlsWorkSheet.Name <> ""
        xlsWorkBook.Close()

        xlsWorkBook = Nothing
        xlsApp.Quit()

j'attend votre feedback



slt tout le monde

acive · Answer

Bonsoir,

Je ne suis pas partisan du KillProcess sauvage, mais si tu y tiens:
         'Pour ne pas "tuer" des processus EXCEL autres que le tien:
        'Avant l'ouverture on vérifie quels process excel sont déjà ouverts
        Dim processId As Integer = 0
        For Each item As Process In Process.GetProcessesByName("EXCEL")
            processId -= item.Id
        Next

        Dim xlsApp As Excel.Application
        Dim xlsWorkBook As Excel.Workbook
        Dim xlsWorkSheet As Excel.Worksheet
        Dim xxx As String
        xxx = Calcul_des_paramètres_supplémentaires.TextBox1.Text
        xlsApp = New Excel.Application
        xlsApp.Visible = False
        xlsWorkBook = xlsApp.Workbooks.Open(xxx)
        xlsWorkSheet = xlsWorkBook.ActiveSheet
        Do
            ComboBox1.Items.Add(xlsWorkSheet.Name)
            xlsWorkSheet = xlsWorkSheet.Next
        Loop While xlsWorkSheet.Name <> ""
        
        xlsWorkBook.Close()
        xlsWorkBook = Nothing
        xlsApp.Quit()

        For Each item As Process In Process.GetProcessesByName("EXCEL")
            processId += item.Id
        Next
        ' Tue le process *sauvagement* ^^
        Process.GetProcessById(processId).Kill()



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Bonjour acive

Je ne suis pas partisan du KillProcess sauvage, mais si tu y tiens: 

Oui mais, fermer Excel à la fin d'un pilotage externe par automation, c'est un vrai parcours du combattant, et ce depuis des lustres. Pour un processus Excel "automationisé", objetexcel.application.quit ferme bien l'interface, mais ne réussit pas fermer complètement le processus.

forzacodm · Answer

merci Acive, mais j'ai essayé le "kill" sauvage ^^ mais le processus persiste.


slt tout le monde

Utilisateur anonyme · Answer

Bonjour,

Tu peux toujours jeter un œil là-dessus.

ucfoutu · Answer

Bonjour,
Le problème est donc de pouvoir terminer le processus Excel ouvert sans pour autant terminer tous les autres processus Excel éventuellement ouverts.
Je veux bien essayer aujourd'hui de faire ceci, mais ce sera sous VB6 :
1) ouvrir le classeur par Shell (ce qui me permettra d'en extraire le processid), en en réduisant la fenêtre

2) me servir de la fonction GetObject, pour récupérer ce classeur-là
3) travailler avec l'objet retourné par getobject (lui envoyer des instructions en automation)
4) in fine : utiliser la fonction TerminateProcess de l'Api de Windows, car je pense qu'elle mettrait également fin à tous les fils ouverts par le Processus en cause


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

acive · Answer

Bonjour,
Hier j'ai parcouru un forum en C, ils avaient un tuto justement (soit-disant) pour palier au problème, ils procédent comme ça:

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsApp)
GC.Collect()
GC.WaitForPendingFinalizers()
 
Mais à la fin ils font quand-même un KillProcess... donc je suis revenu sur VB  c'est pareil... 


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

merci Acive, mais j'ai essayé le "kill" sauvage ^^ mais le processus persiste

Ça fonctionne bien chez moi...
Attention il "tue" uniquement le processus excel que ce code a généré uniquement, si tu as des classeurs ouverts ou autres process excel il n'y fait rien (c'est le but)


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

bigfish_le vrai · Answer

Salut,

pour faire court : 

-éviter les référencements à excel. 
-Préféré la fonction CreateObject

Pour en savoir plus un petit retour d&#8217;expérience partagé ici

Sinon j'ai aussi déjà travaillé le sujet en VBA/VB6. Contrairement à ce que propose acive je tue tout les processus non graphique d'excel. si cela t&#8217;intéresses c'est ici


A+

Utilisateur anonyme · Answer

Bonjour,

Un autre moyen, pour l'interopérabilité avec le framework .net

acive · Answer

Bien vu cmarcotte...
Pourtant j'ai regardé le même forum... mais peut-être pas assez loin.


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Fermer un fichier excel et arreter le processus correspondant

10 réponses

Votre réponse

Discussions similaires