Fermer un classeur ecxel

cs_cyrius Messages postés 8 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 septembre 2002 - 5 sept. 2002 à 09:39
cs_imer Messages postés 59 Date d'inscription vendredi 26 juillet 2002 Statut Membre Dernière intervention 29 janvier 2004 - 5 sept. 2002 à 11:07
je travaille sur access et un de mes boutons d'un formulaire doit fermer les fichiers ecxels ouvert.j'y arrive pas alors que ca doit etre tout bete. je galere
merci d'avance pour votre aide

1 réponse

cs_imer Messages postés 59 Date d'inscription vendredi 26 juillet 2002 Statut Membre Dernière intervention 29 janvier 2004
5 sept. 2002 à 11:07
'Ce n'est pas tout bête
'S'ils sont ouverts par l'appli Access :
<ObjetExcel>.Workbooks(<NomDuFichier>).Close True 'True pour enregistrer les modifs
'S'ils sont ouverts en dehors de l'appli Access
Dim XlApp as Object
Set XlApp = Getobject(, "Excel.Application")
XlApp.WorkBooks(<NomDuFichier>).Close True
If XlApp.WorkBooks.Count=0 Then XlApp.Quit
'Cette méthode pose problême si plusieurs applications excel sont ouvertes (on ne récupère pas forcément la bonne)
0
Rejoignez-nous