TestDDELink et mde

Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire