Fermer processus excel

Version imprimable

Bonjour à tous ! ;)

Je suis sur un nouveau projet, une sorte de configurateur.
Ce configurateur ouvre un fichier excel "Abaque", y récupère des infos, puis le ferme...
Sauf que le processus excel.exe ne se ferme jamais...

Résultat à chaque demande d'ouverture du fichier, je me retrouve avec ça ::roll:

Voilà http://zupimages.net/up/3/1462600589.png

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 excel.Visible = False 'la fenêtre excel est visible Try excel.Workbooks.Open(exedir & "\" & "Files\ABAQUE HAUTEURS - 13 05 13.xls") excel.Worksheets(onglet).Select() excel.Range("P9").Value = ComboBox2.Text excel.Range("P8").Value = ComboBox4.Text TextBox1.Text = excel.Range("S14").Value TextBox2.Text = excel.Range("S16").Value TextBox3.Text = excel.Range("S15").Value Frontal1 = excel.Range("S18").Value Frontal2 = excel.Range("S19").Value Frontal3 = excel.Range("S20").Value Frontal4 = excel.Range("S21").Value excel.ActiveWorkbook.Close(SaveChanges:=False) excel.Application.Quit() ' Shell("taskkill /F /IM Excel.exe") Catch ex As Exception MsgBox("Erreur", vbCritical, "Erreur d'accès au fichier abaque requis") Exit Sub End Try
J'ai essayé le taskkill, mais si l'utilisateur à le malheur d’être sur un autre fichier excel sans être sauvegardé, je vous laisse deviner le résultat... :mouarf:

Quelquu'un aurait il une idée pour "killer" ce processus lié au fichier en question ?

Merci... :ccool:

11/09/2013, 11h50
wallace1

Utilises la classe "Process" de l'espace de nom "System.threading" :

http://pastebin.com/u/3DotDev

A+

si ton variable "excel" est de type

Code:

1
2
 
new Microsoft.Office.Interop.Excel.Application();

tu peux faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
 excel.Visible = False 'la fenêtre excel est visible 
 
        Try
            excel.Workbooks.Open(exedir & "\" & "Files\ABAQUE HAUTEURS - 13 05 13.xls")
            excel.Worksheets(onglet).Select()
            excel.Range("P9").Value = ComboBox2.Text
            excel.Range("P8").Value = ComboBox4.Text
            TextBox1.Text = excel.Range("S14").Value
            TextBox2.Text = excel.Range("S16").Value
            TextBox3.Text = excel.Range("S15").Value
            Frontal1 = excel.Range("S18").Value
            Frontal2 = excel.Range("S19").Value
            Frontal3 = excel.Range("S20").Value
            Frontal4 = excel.Range("S21").Value
            excel.ActiveWorkbook.Close(SaveChanges:=False)
             excel.Quit();
            ' Shell("taskkill /F /IM Excel.exe")
        Catch ex As Exception
           excel.Quit();
            MsgBox("Erreur", vbCritical, "Erreur d'accès au fichier abaque requis")
            Exit Sub
        End Try

11/09/2013, 13h42
dkmix

Bonjour,
Dans tous les cas, je vous conseille d'oublier l'interop Excel et de vous renseigner sur l'open XML.

Avantages :
- pas besoin de la solution MS office Excel sur le poste
- Pas de pb de threads excel

Inconvénients :
- Format xlsx obligatoire (pour office 2003 il existe un patch pour ouvrir les xlsx)
11/09/2013, 14h20
infosam76

Citation:

Inconvénients :
- Format xlsx obligatoire (pour office 2003 il existe un patch pour ouvrir les xlsx)

pour ouvrir les xls tu veux dire je suppose.

Sinon merci pour l'info j'irai un peu jeter un œil cela m'interesse
11/09/2013, 14h40
dkmix

Citation:

pour ouvrir les xls tu veux dire je suppose.

Non je pensais à ce pack de compatibilité (gratuit), qui permet aux utilisateurs d'Office 2003 d'ouvrir des fichiers xlsx.
Il n'y donc aucun intérêt à fournir des xls aux utilisateurs, on peut directement leurs fournir des xlsx.

L'Open XML ne travaille qu'avec des fichiers xlsx (dans le sens : pas de xls).
11/09/2013, 22h12
infosam76

Citation:

L'Open XML ne travaille qu'avec des fichiers xlsx (dans le sens : pas de xls).

oki je ne savais pas cela, merci pour l'explication ;)
13/09/2013, 15h37
botbot

Bonjour à tous, merci pour vos réponses.

azstar, j'ai essayé ton code, cela donne le même résultat ? :roll:

Sinon je vais me pencher sur l'open XML.. en espérant que cela ne soit pas trop compliqué... :mouarf:
14/09/2013, 11h10
Sankasssss
Bonjour,

c'est un sujet que tous les développeurs utilisant l'automation ont rencontré.
On l'a traité en long et en large dans plusieurs discussions dont celle-ci.

La solution est donc de :
1. Fermer la feuille sur laquel on travail : ws.Close() ' Close Worksheet
2. Fermer le classeur sur lequel on travail : wb.Exit() ' Exit Workbook
3. Mettre les variables à nothing :
  Code:
  
  1 2 ws = nothing wb = nothing
La discussion donne la solution mais termine par l'excellente idée de dkmix d'abandonner l'automation. :ccool:

En plus l'avantage est multiple car si vous faite des applications serveur, l'automation est à proscrire complètement.
14/09/2013, 11h30
dkmix

Citation:

sinon je vais me pencher sur l'open XML.. en espérant que cela ne soit pas trop compliqué...

Nous utilisons Epplus c'est pas trop compliqué, il y a des samples (en c#)
18/09/2013, 13h30
botbot

Pour le moment je suis resté en automation, mon problème étant résolu, mais la prochaine fois je me pencherai sur l'open xml...

Résolu grâce au post de hunteshiva sur ce lien qu'à donné Sankasssss.

On détecte le nombre de process excel, on ouvre excel, en on ferme le dernier créé...

Merci à vous ! :ccool:
18/09/2013, 14h08
callo

N'oublie donc pas de passer le post à :resolu: