Bonjour et bon début de semaine à tous,
j'ai une question concernant la fermeture automatique de fichier Excel via Acess.
Je travaille actuellement une application qui génère via access des fichiers Excel pré-remplis et qui doit également (toujours via access) permettre de supprimer ces derniers. Leur chemin et leur nom sont stockés dans la base ; aussi si la suppression en elle-même ne m'a pas posé de souci c'est dans le cas où le fichier visant à être supprimer est ouvert que j'ai un problème
Je ne trouve pas de fonction qui permettrait de fermer via access le fichier en question, pourtant j'ai bien essayé la propriété "activeworkbook" permettant de fermer le fichier en cours mais sans résultat (Permission refusée car encore ouvert) :
Je pense que ca coince au niveau du "createobject", mais je ne vois pas quoi mettre d'autres...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim appexcel As Excel.Application Dim xlBook As Excel.Workbook Set appexcel = CreateObject("Excel.Application") Set xlBook = appexcel.Workbooks.Open("Chemin_de_mon_fichier") ActiveWorkbook.Close appexcel.Quit Set appexcel = Nothing 'Suppression du fichier sélectionné Kill chemin_de_mon_fichier
Thanks à tous !
Partager