Discussion :

[dietrich]

j'utilise

Dim _xlApp As Microsoft.Office.Interop.Excel.Application = Nothing
Dim _xlBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim oRien As Object = System.Reflection.Missing.Value
Dim _xlSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing

et lorsque je fais un _xlApp .close()
le processus est toujours en cours

en win app j arrive a en lancer 3 maxi apres ils disparaissent
mais en asp ils reste comment les faire disparaitre definitivement


merci

[benji17c]

ce sujet a déjà été traité pas mal de fois.

Utilises la fonction recherche du forum.

Mots clés : excel processus automation


merci

[dietrich]

j'utilise

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
 
Public Sub Close()
            Try
 
                If Not _xlSheet Is Nothing Then
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlSheet)
                    _xlSheet = Nothing
                End If
 
                If Not _xlBook Is Nothing Then
                    _xlBook.Close(False, Type.Missing, Type.Missing)
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlBook)
                    _xlBook = Nothing
                End If
 
                If Not _xlApp Is Nothing Then
                    _xlApp.Quit()
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlApp)
                    _xlApp = Nothing
                End If
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
        End Sub

j'ai essayé tous ce que j'ai pu trouver dans le forum rien ne change
chaque fois que j'insctancie Excel.Application
et que j'appelle ensuite le quit() le processus ne se termine pas

aidez moi

[dietrich]

quand je debug avant de faire le appQuit mais apres avoir fermer la feuille et le workbook

dans app
j ai plusieurs de ses propriétés avec des exceptions
+ ThisCell {"Exception de HRESULT : 0x800A03EC"} Microsoft.Office.Interop.Excel.Range
+ ThisWorkbook {"Exception de HRESULT : 0x800A03EC"} Microsoft.Office.Interop.Excel.Workbook

peut etre cela empeche t il au processus de se fermer

[dietrich]

Dim _xlApp As Microsoft.Office.Interop.Excel.Application = Nothing
Dim _xlBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim _xlSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
Dim ProcId As Integer

Public Sub New(ByVal fileName As String, ByVal isReadOnly As Boolean)
' Liste des processus avant le mien
Dim Process1() As Process = Process.GetProcesses()
_xlApp = New Microsoft.Office.Interop.Excel.Application()
' Liste des processus après le mien : la différence me donnera l'Id du mien
Dim Process2() As Process = Process.GetProcesses()


Dim i, j As Integer
Dim bMonProcessXL As Boolean
For j = 0 To Process2.GetUpperBound(0)
If Process2(j).ProcessName = "EXCEL" Then
bMonProcessXL = True
' Parcours des processus avant le mien
For i = 0 To Process1.GetUpperBound(0)
If Process1(i).ProcessName = "EXCEL" Then
If Process2(j).Id = Process1(i).Id Then
' S'il existait avant, ce n'�tait pas le mien
bMonProcessXL = False
Exit For
End If
End If
Next i
If bMonProcessXL = True Then
' Maintenant que j'ai son Id, je pourrai le tuer
' xlApp.Hinstance ne fonctionne pas avec Excel 2000
' alors que cette méthode marche toujours !
ProcId = Process2(j).Id
Exit For
End If
End If
Next j

Open(fileName, isReadOnly)
setCurrentSheet(1)
End Sub


Public Sub Quitter()
If ProcId = 0 Then Exit Sub
Process.GetProcessById(ProcId).Kill()
End Sub