Fermeture intempestive d'access

Bonjour à tous,

mon problème est le suivant : je souhaite depuis excel , ouvrir Access , ensuite sous access différentes choses vont se lancer ou pas et refermer Excel , or mon code ferme excel mais aussi access. Merci pour votre aide , j'ai essayé pleins de méthodes et là je séche....

Sub ouvrir_access()
    Static ac As Access.Application
    Set ac = New Access.Application
    ac.Visible = True
    chemin_base = Cells(2, 2).Value 'cellule B2

    ac.OpenCurrentDatabase (chemin_base & "\labase.accdb")
   ' ac.Application.Quit
   ''With ActiveWorkbook
   '.RunAutoMacros xlAutoClose
  ' .Close
  ' End With
   Workbooks("ouvrir access.xlsm").Activate
   Workbooks("ouvrir access.xlsm").Close True
End Sub