Processus excel ne se ferme pas

Question

Dim xl As Object
Dim WB_Fichier1 As Workbook, WB_Fichier2 As Workbook
Dim WS_FeuilleACopier As Worksheet


Set xl = CreateObject("Excel.Application")

    Select Case "PIM : - Appareils sous-pression"
            Set WB_Fichier1 = Workbooks.Open("G:\Qualite\dossier yoann\stage	ypes_de_rapport\908G16GF.xls", ReadOnly:=True)
            Set WB_Fichier2 = Workbooks.Open("G:\Qualite\dossier yoann\stage	ypes_de_rapport\Annexe PIM\PIM Appsp.xls", ReadOnly:=True)
            xl.Visible = True
            
            Set WS_FeuilleACopier = WB_Fichier2.Worksheets("APPSP")
            WS_FeuilleACopier.Copy After:=WB_Fichier1.Sheets("908G16GF")
            WB_Fichier2.Close SaveChanges:=False
            WB_Fichier1.Sheets("908G16GF").Activate
            
            Set WS_FeuilleACopier = Nothing
            Set WB_Fichier1 = Nothing
            Set WB_Fichier2 = Nothing
End select


Ce code me permet d’ouvrir 908G16GF.xls puis de mettre PIM Appsp.xls dans une feuille de ce même document.
Ce marche nickel mais le problème, qd je ferme le document excel ; EXCEL.EXE est toujours présent dans Processus de Gestionnaire de Tâches.Cela vient peut être du fait que l’oobjet Excel ets ouvert 2 fois (Set xl CreateObject("Excel.Application") (Set WB_Fichier1 Workbooks.Open) mais je ne suis pas sur)

Alors une idée ? ? ?

yoarf · Answer

c bon j'ai trouve fo juste mettre xl.Workbooks.Open a la place de Workbooks.Open

Y.C

Processus excel ne se ferme pas

1 réponse

Discussions similaires