Microsoft 365 Fermer le workbook actuel, sans fermer Access

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

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
 

Discussions similaires

Réponses
7
Affichages
2 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL