Attacher les tables dans une base frontale depuis une Base dorsale

A partir de ma base de données, je voudrais créer par VBA tous les liens des
tables dans une base de donnée frontale:
J'ai esayé de modifier le code qui fait l'inverse que j'ai pris dans l'aide
d'access.

Mais depuis je suis bloqué au niveau de cette erreur :

3011
Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet
'Accréditations sur opérations de production'. Assurez-vous que l'objet
existe et que vous avez correctement saisi son nom et son chemin d'accès.

Voici du reste le code assoccié :

[CODE]
Function LierTablesDorsale(StrBaseFrontale As String) As Boolean
On Error GoTo Err_LierTablesDorsale
Dim strMotPasse As String
Dim strConnect As String
Dim strNomsTables() As String
Dim strTemp As String
Dim i As Integer
Dim oDb As DAO.Database
Dim oDbSource As DAO.Database
Dim oTbl As DAO.TableDef
Dim oTblSource As DAO.TableDef

strPass = "thanks"

'dans StrBaseFrontale on trouve le chemin de ma cible style "C:\test.mdb"
strConnect = "MS Access;pwd=" & strPass & ";DATABASE=" & StrBaseFrontale
Set oDb = DBEngine.OpenDatabase(StrBaseFrontale, dbDriverComplete,
False, strConnect)
Set oDbSource = CurrentDb

For Each oTblSource In oDbSource.TableDefs
If (oTblSource.Attributes And dbSystemObject) = 0 Then
strTemp = strTemp & oTblSource.Name & "|"
End If
Next
oDbSource.Close: Set oDbSource = Nothing
Debug.Print strTemp

strNomsTables = Split(Left(strTemp, Len(strTemp) - 1), "|")
For i = 0 To UBound(strNomsTables)
Debug.Print i, strNomsTables(i)

'Initialisation de Table def
Set oTbl = oDb.CreateTableDef(strNomsTables(i))
Debug.Print "Affectation OK"

'Conection à la Frontale
oTbl.Connect = strConnect
Debug.Print "Connection OK"

'Désignation de la table à attacher
oTbl.SourceTableName = strNomsTables(i)
Debug.Print "Désignation OK"

'Modification de Tabledefs et mise à jour de la définition
'C'est ici que cela coince !
' Le moteur de base de données Microsoft Jet n'a pas pu
trouver l'objet 'Nom_de_la_table'.
' Assurez-vous que l'objet existe et que vous avez
correctement saisi son nom et son chemin d'accès.
oDb.TableDefs.Append oTbl
Debug.Print "Definition OK"
Next i

oDb.TableDefs.Refresh

Exit_LierTablesDorsale:
Set oDbSource = Nothing
Set oTbl = Nothing
Set oDb = Nothing
Exit Function

Err_LierTablesDorsale:
Select Case Err.Number
Case 3012
Debug.Print Err.Number, Err.Description
Resume Next

Case Else
Debug.Print Err.Number, Err.Description
TraiteErreur Err.Number, "LierTablesDorsale :" & vbCr &
Err.Description
Resume Exit_LierTablesDorsale
End Select

End Function

[/CODE]

Merci pour toutes vos contributions.