cs_cyrius
Messages postés8Date d'inscriptionmercredi 7 août 2002StatutMembreDernière intervention10 septembre 2002
-
5 sept. 2002 à 09:39
cs_imer
Messages postés59Date d'inscriptionvendredi 26 juillet 2002StatutMembreDernière intervention29 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
cs_imer
Messages postés59Date d'inscriptionvendredi 26 juillet 2002StatutMembreDernière intervention29 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)