Dim obj_Access As Object Set obj_Access = CreateObject("access.application") ' Ouverture de la base Access obj_Access.OpenCurrentDatabase "c:\temp\bd1.mdb" ' Ouverture table obj_Access.DoCmd.OpenTable "TaTable" ' Impression obj_Access.DoCmd.PrintOut ' Fermeture de la base obj_Access.Quit ' Libération de la mémoire Set obj_Access = Nothing