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