Microsoft 365 Fermer le workbook actuel, sans fermer Access

[Etxezarreta]

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()

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

 

[soan]

Bonjour @Etxezarreta,

à tout hasard, au lieu de :

ActiveWorkbook.Close SaveChanges:=True

essaye avec :

ThisWorkbook.Close SaveChanges:=True

(j'ai rien d'autre à proposer)

soan

 

[Etxezarreta]

Bonjour @Etxezarreta,

à tout hasard, au lieu de :

ActiveWorkbook.Close SaveChanges:=True

essaye avec :

ThisWorkbook.Close SaveChanges:=True

(j'ai rien d'autre à proposer)

soan

Bonjour,
J'ai trouvé la solution:
Il fallait rajouter ceci: appAccess.usercontrol=true
Merci.
Etxe.