Problème de fermeture

[Georges]

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

 

[jon]

bonjour

rajoute l'instruction suivante, je pense que cela devrait faire l'affaire
set appli=nothing


HTH
Jon

 

[Georges]

Bonjour jon

Merci pour ton aide, mais non j'ai toujours le même problème.

Ma macro fonctionne sur un fichier qui sert de base de donnée à un publipostage, je me demande si ce n'est pas ça le problème ?

a+

Georges

 

[Georges]

Des nouvelles :

Après de multiples tests je me suis aperçu que le problème se posait après l'activation du code :


Application.ScreenUpdating = False

Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
Wrd.documents.Open ("p:\document\Retard de validation\Validation.doc")
Set Wrd = Nothing

Application.ScreenUpdating = True

Le fichier ainsi ouvert je le ferme manuellement.

Ce fichier fait aussi publipostage.

Quelqu'un a t il un idée ???????

Merci

Georges

 

[Georges]

Houai de plus en plus bizard, lorsque j'ouvre mon fichier excel puis mon fichier word de publipostage manuellement j'ai le même pb. je vais plutôt regarder du côté de Word pour voir ce qui déconne.


Bonne journée