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