Etxezarreta
XLDnaute Nouveau
Bonjour,
Je souhaite depuis un workbook ouvrir un fichier Access avec la méthode early binding, puis fermer le même workbook, sans fermer Access:
le problème est que Access se ferme tout de même, alors que je n'utilise pas Application.quit:
Voici le code
Public Sub FermerFichierExel()
J'ai essayé avec ou sans application.quit, en late binding, mais cela ne marche guère mieux.
Merci d'avance de vos suggestions.
Etxe
Je souhaite depuis un workbook ouvrir un fichier Access avec la méthode early binding, puis fermer le même workbook, sans fermer Access:
le problème est que Access se ferme tout de même, alors que je n'utilise pas Application.quit:
Voici le code
Public Sub FermerFichierExel()
VB:
Public Sub FermerFichierExel()
Dim appAccess As Object
Dim strPath As String
strPath = ActiveWorkbook.Path
On Error GoTo errSub
Set appAccess = CreateObject("Access.Application")
Call appAccess.OpenCurrentDatabase(strPath & "\GestionProduction_SupplyChain_LGB.accdb")
appAccess.Visible = True
ActiveWorkbook.Close SaveChanges:=True
Exit Sub
errSub:
MsgBox Err.Number & " -- " & Err.Description
End Sub
J'ai essayé avec ou sans application.quit, en late binding, mais cela ne marche guère mieux.
Merci d'avance de vos suggestions.
Etxe