Bonjour,

n'ayant toujours pas trouvé de solutions pour terminer un processus Excel après l'appel à xlswrite, je suis à la recherche d'une fonction permettant de lister les processus windows ouverts.

Ainsi, il me suffirait (comme dans l'exemple suivant sous un autre language) de chercher les processus sous le nom "EXCEL.EXE" et de regarder leur date de création pour être sûr de terminer le bon.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Public Function CloseXl(ByVal t As Date)
        Dim i As Integer
        Dim p() As Process
        p = Process.GetProcessesByName("EXCEL")
 
        For i = 0 To p.Length - 1
            If p(i).StartTime >= t And p(i).StartTime < t.AddSeconds(1) Then
                p(i).Kill()
            End If
        Next
 
    End Function
Merci pour votre aide.