Discussion :

[MAGUIN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MAGUIN]

merci ousk

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