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
Partager