[VBA-E]Comment tuer Excel (proprement)

Bonjour,
Dans ce morceau de code, je sauvegarde une feuille de dossier Excel sous le nom de "DocFus.xls".
J'ouvre un document Word contenant une macro pour fusionner avec DocFus.xls.
Je quitte le Document Word, je retombe dans Excel que je ferme.
Tout va apparamment bien sauf que
je retouve un EXCEL dans la liste des processus actifs
et dans l'explorateur de projets, une liste de "VBAprojet (Docfus.xls) "qui s'allonge à chaque essai.
Cette liste disparait si je supprime manuellement EXCEL de la liste des processus actifs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Application.DisplayAlerts = False Worksheets("Fusion").Unprotect (motpasse) Worksheets("Fusion").Copy ActiveWorkbook.SaveAs (Chemin & "\DocFus.xls")   Set AppWord = CreateObject("Word.Application") AppWord.Visible = True   Set FusWord = AppWord.Documents.Open(FileName:=NomMat)   Workbooks.Close Excel.Application.Quit

---

Il y a sans doute des erreurs là dedans (je progresse lentement).
J'ai fait beaucoup d'essais, des .Close, .Quit, .Disconect
EXCEL est toujours là.
Merci de votre aide
Michel

Quand cette ligne est exécutée, Excel passe la main à Word.

Citation:

---

Set FusWord = AppWord.Documents.Open(FileName:=NomMat)

---

La suite de la macro n'est donc pas exécutée avant la fermeture de word.

PS - je viens de penser à une solution à tester, avant de passer dans word, tenter de lancer une macro sur tempo qui s'exécuterait indépendemment de la procédure en cours. Un truc dans le genre :

Code:

---

1 2 3 4 5 6 7

Sub QuitterOnTime() Application.OnTime Now + TimeValue("00:00:05"), "FermerExcel" End Sub   Sub FermerExcel() Application.quit End sub

---

Et tu appelles QuitterOnTime sur la ligne précédant l'ouverture du fichier Word
C'est à tenter

Testé => Ok :yaisse2:

merci ousk

J'ai ajouté
Workbooks("DocFus.xls").Close
avant de passer dans Word et tout va bien
A la prochaine
MM