Sub Ouvre_Access()
Dim oAcApp As Object
Set oAcApp = CreateObject("Access.Application")
'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "F:\Mes Documents Cat\,\Entete Perso & Ent\Entête perso\Perso Chris\NuméroFacture.mdb"
'rs.Close
'Set rs = Nothing
Set oAcApp = Nothing
End Sub