G
Georges
Guest
Bonjour à tous
Voilà j'ai un petit problème, la programmation qui suit ferme bien mes applications, mais lorsque je ferme Excel complètement Excel apparaît toujours dans le gestionnaire des tâches alors qu'il ne devrait plus apparaître.
Si quelqu'un a une idée de ce qui se passe je suis preneur.
Bonne journée
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim TheName1 As String
Dim WB As Workbook
Dim WK As Workbook
Dim Appli As Word.Application
For Each WB In Workbooks
If WB.Name = "Données.xls" Then
TheName1 = "Données.xls"
End If
Next
If TheName1 <> "" Then
Workbooks(TheName1).Close False
End If
On Error Resume Next
Set Appli = GetObject(, "Word.Application")
If Appli Is Nothing Then
Else
Appli.Quit 'fermeture application Word
End If
Set WK = ThisWorkbook
WK.Close False
End Sub
Voilà j'ai un petit problème, la programmation qui suit ferme bien mes applications, mais lorsque je ferme Excel complètement Excel apparaît toujours dans le gestionnaire des tâches alors qu'il ne devrait plus apparaître.
Si quelqu'un a une idée de ce qui se passe je suis preneur.
Bonne journée
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim TheName1 As String
Dim WB As Workbook
Dim WK As Workbook
Dim Appli As Word.Application
For Each WB In Workbooks
If WB.Name = "Données.xls" Then
TheName1 = "Données.xls"
End If
Next
If TheName1 <> "" Then
Workbooks(TheName1).Close False
End If
On Error Resume Next
Set Appli = GetObject(, "Word.Application")
If Appli Is Nothing Then
Else
Appli.Quit 'fermeture application Word
End If
Set WK = ThisWorkbook
WK.Close False
End Sub