Discussion :

[dav787]

Bonjour,

Voilà quelques semaines que j'évolue sur office 2010 alors qu'avant j'étais sous office 2003
Je souhaite ouvrir access depuis excel puis, fermer mon classeur excel et ne laisser actif qu' access.
Là ou, sous office 2003, ça marchait, là, mon code ne marche plus.
Il me ferme aussi bien excel qu'access, même après l'avoir ouvert.
Je vous remercie pour votre aide.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ouvre_access()
 
 
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\\report.mdb")
Windows(1).WindowState = xlMaximized
 
 
 
   Workbooks("Analyse").Save
 
  appexcel.Quit
  wb.Quit
 
 
End Sub

[Chappoe]

Bonjour,

as-tu essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worbooks("Analyse").close savechanges = True