Code qui ne fonctionne plus??pourquoi

[MuscatMimi]

Bonjour a tout le Forum

J'ai un soucis avec ce Code,avant il fonctionnait bien
mais depuis quelques temps,je n'arrive plus
a Ouvrir ma Base Access
Quelqu'un a t'il une idée


Ouvre Access depuis Word

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

Merci de votre Aide

cordialement