Processus Excel reste actif

Question

Bonjour,
   J'ai ecris un module sous ACCESS charg&#233;e d'ouvrir un classeur Excel existant, de creer un autre classeur et de copier une partie du contenu du classeur existant dans l'autre classeur. J'arrive a creer et a faire des modifications s&#233;parement dans les deux classeurs, et a sauvegarder mais des que je fait un copier coller d'un classeur vers un autre, Le processus EXCEL reste actif dans le gestionnaire des taches, et ces tres embetant car je veux recomencer cette operation plusieurs fois de suite dans mon module et si Le processus EXCEL reste actif dans le gestionnaire des taches, j'ai une erreur. 
J'ai peut etre une erreur dans mon code ou j'ai oubli&#233; une ligne? 
Sinon une solution pour que ca marche sans modifier mon programme serait de rajouter une ligne a la fin de mon programme qui fasse l'action suivante. 

Si processus EXCEL =  actif  alors  
      Terminer le processus Excel 
Fin Si 

Voila mon code :

Public Function transfert() 

'D&#233;claration des variables 
Dim xlBook As Excel.Workbook 
Dim xlApp As Excel.Application 
Dim xlFeuille As Object 

Dim NewExcelSheet As Object 

'J'initialise mes variables 
Set xlApp  = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Open("Chemin\Classeur.xls") 
Set xlFeuille = xlBook.Sheets("Sheet1") 

Set NewExcelSheet = CreateObject("Excel.Sheet") 

'Modifications 
xlFeuille.Range("A1").Select 
Selection.Copy 

ExcelSheet.Application.Range("A1").Select 
ActiveSheet.Paste 
xlApp.CutCopyMode = False 

'Enregistrement 
ExcelSheet.SaveAs "Chemin\New.xls" 

'Fermeture d'excel 
xlBook.Save 
xlBook.Close 
xlApp.Quit 

ExcelSheet.Application.Quit 

'Supprime les variables objet 
Set xlApp = Nothing 
Set xlBook = Nothing 
Set xlFeuille = Nothing 
                
Set ExcelSheet = Nothing 
                              
End Function

cs_tecman · Answer

Pourquoi initialiser un objet NewExcelSheet et ne pas l'utiliser ?

Pourquoi utiliser un objet ExcelSheet non initialis&#233; ?



A voir ...



De plus, tu peux aussi sauvegarder ton fichier (NewExcelSheet ou ExcelSheet
), faire tes modifs et ensuite le sauvegarder une fois le travail
termni&#233;. Cela t'&#233;vitera de travaill&#233; sur un objet temporaire...

Tecman

KatmandouJah · Answer

En fait je me suis trompe dans mon code je copie les donnees depuis xlFeuille vers NewExcelSheet donc la ligne suivante est fausse :

ExcelSheet.Application.Range("A1").Select 
ActiveSheet.Paste 
xlApp.CutCopyMode =  False 

 ExcelSheet.SaveAs "Chemin\New.xls"  

en fait c'est :

NewExcelSheet.Application.Range("A1").Select 
ActiveSheet.Paste 
xlApp.CutCopyMode  = False 

NewExcelSheet.SaveAs "Chemin\New.xls" 

Voila mais m&#234;me comme ca le processus reste actif.

En Reponse a ce que tu as dit :
De plus, tu peux aussi sauvegarder ton fichier (NewExcelSheet ou ExcelSheet ), faire tes modifs et ensuite le sauvegarder une fois le travail termni&#233;. Cela t'&#233;vitera de travaill&#233; sur un objet temporaire...

Tu crois qu'il faudrait que je fasse dans cette ordre?

NewExcelSheet.SaveAs "Chemin\New.xls"

'Modifications

et Resauvegarde, en tou cas merci davoir repondu,salut

cs_tecman · Answer

Il me semble que cela puisse &#234;tre une cause de perte du pointeur du processus actif.

Tiens-nous au courant.
@+
Tecman

Processus Excel reste actif

3 réponses

Discussions similaires