Problème pour fermer excel après ouverture access

[dav911]

Bonjour,

Voilà, j'utilise office 2010 depuis quelques temps et, j'ai crée via excel, un bout de code qui me permet d'ouvrir une base access.Le problème, c'est qu'acess s'ouvre bien, mais sur les dernières lignes de code excel, il ferme tout, access et excel.

Sub ouvre_access()


[CODE]dim appaccess As Access.Application, appexcel As Excel.Application, wb As Excel.Workbook
Dim cnnemp As ADODB.Connection
Set appaccess = CreateObject("access.application")
Set appexcel = CreateObject("excel.application")



appaccess.OpenCurrentDatabase ("C:\Users\8\Documents\P\suivi.mdb")
Windows(1).WindowState = xlMaximized
'DoCmd.RunMacro "demarrage"
'Enregistre excel et ferme l'application

Application.Quit
  
  
   
End Sub

 

[dav911]

Re : Problème pour fermer excel après ouverture access

Bonsoir et merci pour la réponse.

Pas d'amélioration.
Est ce que ça peut venir d'une référence ?

Sont cochées :

-visual basic for applications
-Microsoft excel 14 object Library
- ole automation
- Microsoft office 14 object Library
- Microsoft access 14 object Library
- Microsoft activex data objects 2.6 Library
- Microsoft dao 3.6 object Library

Merci