Discussion :

[botbot]

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 :

Voilà

Voici mon code :

Code :

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

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...

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

Merci...

[wallace1]

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

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

A+

[azstar]

si ton variable "excel" est de type

Code :

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

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

tu peux faire

Code :

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

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

[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)

[infosam76]

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

[dkmix]

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).