Tuer 1 Processus - AIDE SVP

Tuer 1 Processus - AIDE SVP - VB/VBA/VBS - Programmation

Marsh Posté le 20-06-2005 à 09:48:21    

Bonjour,
 
Voici le contexte de mon problème
 
Je suis dans un module de code VBA sous Access. Dans ce module j'ouvre un classeur Excel de la façon suivante :
 
Sub Ouverture_Classeur()
 
    Dim ClasseurXLS As Object
    Dim chemin_classeur As String
     
    'Creation d'un object Classeur Excel
    Set ClasseurXLS = CreateObject("Excel.application" )
 
    'Definition de son emplacement
    chemin_classeur = CurrentProject.Path & "\extraction.csv"
     
    'Ouverture du classeur d'importation
    ClasseurXLS.Workbooks.Open chemin_classeur
 
End Sub
 
Jusque là aucun problème. Etant donné qu'une fois que je me suis servi de ce classeur excel je souhaite le supprimer, j'aimerai pouvoir utiliser simplement kill (chemin_de_mon_fichier).  
Seulement pour ça, il faut que je tue le processus EXCEL.EXE sinon j'ai une erreur 'Permission Refusée' étant donné que le processus est toujours actif.
 
Comment puis-je tuer simplement ce fichu processus "EXCEL.EXE" ??? Merci d'éclairer ma lanterne.

Reply

Marsh Posté le 20-06-2005 à 09:48:21   

Reply

Marsh Posté le 20-06-2005 à 12:09:07    

z'avez vraiment pas une chtite idée ?

Reply

Marsh Posté le 20-06-2005 à 12:37:49    

si tu fais un kill dans la meme macro, c'est raté.
 
il faut que tu lui fasse fermer l'aaplication en cours (styleWorkbook.Quit ou Close) et apres que tu fasse un kill fichier.

Reply

Marsh Posté le 20-06-2005 à 14:01:02    

et c'est quoi ton styleWorkbook ?
parcequ'il ne me le reconnait pas... Je ne dois pas l'utiliser correctement...

Reply

Marsh Posté le 20-06-2005 à 17:21:20    

pardon c'est " quitter l'application en cours en utilisant un truc du dtyle Workbook.quit ou .close "


Message édité par knakes le 20-06-2005 à 17:21:45
Reply

Marsh Posté le 24-06-2005 à 01:34:10    

Set ClasseurXLS = Nothing


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed