Fermer un classeur ecxel

Messages postés
8
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 septembre 2002
-
Messages postés
59
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
29 janvier 2004
-
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

Messages postés
59
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
29 janvier 2004

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