Comment tuer un processus en vba
lord_in
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
audalice Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
audalice Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aimerais bien savoir comment tuer un processus EXCEL.EXE en vba
je suis en vba sous access
merci
j'aimerais bien savoir comment tuer un processus EXCEL.EXE en vba
je suis en vba sous access
merci
6 réponses
Pour l'utilisation de Taskkill, il semble que l'écriture du code VBA soit plutôt :
vba.Interaction.Shell("TASKKILL /F /IM excel.exe")
vba.Interaction.Shell("TASKKILL /F /IM excel.exe")
j'ai trouvé ca
vba.Interaction.Shell("TASKKILL excel.exe /F /IM")
une interaction avec l'invité de commande
si ca ne fonctionne pas rajoute cmd.exe devant le taskkill
vba.Interaction.Shell("TASKKILL excel.exe /F /IM")
une interaction avec l'invité de commande
si ca ne fonctionne pas rajoute cmd.exe devant le taskkill
Bonjour,
regarde ici, si cela peut aider :
https://www.developpez.net/forums/d275853/logiciels/microsoft-office/access/vba-access/api-supprimer-tache-vba-access/
regarde ici, si cela peut aider :
https://www.developpez.net/forums/d275853/logiciels/microsoft-office/access/vba-access/api-supprimer-tache-vba-access/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai le même besoin, car dans ma base de donnée je souhaite créer un Excel avec des données provenant de la base.
Lorsque je lance ma fonction une fois, elle fonctionne et me créer un Excel. Mais à la seconde execution (sans changer, ni les donnée, ni le code) la fonction bug sur un Range et un processus EXCEL.EXE est visible dans le gestionnaire des taches alors que je n'est aucun Excel d'ouvert (du moins de visible...)
Pourtant à la fin de ma fonction je ferme mon workbook et l'Objet "application excel" :
Je pense que le mieux est encore de tuer le processus directement...
Lorsque je lance ma fonction une fois, elle fonctionne et me créer un Excel. Mais à la seconde execution (sans changer, ni les donnée, ni le code) la fonction bug sur un Range et un processus EXCEL.EXE est visible dans le gestionnaire des taches alors que je n'est aucun Excel d'ouvert (du moins de visible...)
Pourtant à la fin de ma fonction je ferme mon workbook et l'Objet "application excel" :
xlBook.Close xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Je pense que le mieux est encore de tuer le processus directement...
En fait le lien donner plus haut est pas mal.
C'est un peu lourd, mais ça fonctionne... Le seul problème, c'est que je peux pas lancer ma fonction avec des Excel d'ouvert en même temps... Et en plus maintenant une fois sur 2 (avec un grande précision), toujours sur mon Range, il me fait une erreur en me disant que le server distant n'existe pas ou n'est pas diponible, alors que je travail en Local -_-...
Mais je comprend vraiment pas pourquoi il me laisse un processus à la fin de ma fonction... parce qu'à mon avis c'est ça qui fait buguer, du style de Excel qui porte le même nom.
Et c'est pas la 1er fois que j'ai des problème sur les Ranges comme ça...
C'est un peu lourd, mais ça fonctionne... Le seul problème, c'est que je peux pas lancer ma fonction avec des Excel d'ouvert en même temps... Et en plus maintenant une fois sur 2 (avec un grande précision), toujours sur mon Range, il me fait une erreur en me disant que le server distant n'existe pas ou n'est pas diponible, alors que je travail en Local -_-...
Mais je comprend vraiment pas pourquoi il me laisse un processus à la fin de ma fonction... parce qu'à mon avis c'est ça qui fait buguer, du style de Excel qui porte le même nom.
'Initialisations
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'Creation de la feuille budget
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Budget"
[...]
Fonctions...
[...]
xlApp.DisplayAlerts = False
xlBook.SaveAs chemin & "\Import\Budgets\Budgets " & Me.Liste_Annee.Value & " " & Format(Now, "yyyy-mm-dd - hhmmss") & ".xls"
xlBook.Close
xlApp.DisplayAlerts = True
xlApp.Quit
Abase.Close
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Et c'est pas la 1er fois que j'ai des problème sur les Ranges comme ça...
