Discussion :

[Jaymerry]

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) :

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

Je pense que ca coince au niveau du "createobject", mais je ne vois pas quoi mettre d'autres...

Thanks à tous !

[tribaleur]

Peut-être quand forçant la fermeture sans rien sauvegarder ça fonctionnera ... parceque je pense que ça viens des droits d'accès qui bloque la modification aux autre utilisateurs
je mettrai ça comme code plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'on enlève les messages d'erreurs de Excel
    OBJ_Appli_Excel.DisplayAlerts = False
    'fermeture du classeur excel
    OBJ_Classeur_Excel.Close
    Set OBJ_Classeur_Excel = Nothing
 
    'on remet les messages d'erreur dans excel
    OBJ_Appli_Excel.DisplayAlerts = True
    OBJ_Appli_Excel.Quit
    Set OBJ_Appli_Excel = Nothing

Enfin je suis pas sur que ça fonctionne

[Jaymerry]

Merci pour l'info

Finalement avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Close

je m'en sors, mais dans le cas où plusieurs fichiers excel sont ouverts, je ne vois pas comment spécifier quel est le fichier à fermer (activeworbook.name me ne fonctionnant pas )