Bonjour a tous

Je souhaite importer des tables par le code mon problème est que je n'arrive pas à importer les relation avec.
Mon code est le suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub DoTheLink(strNomBase As String, strNomTable As String, Optional strNomSource)
Dim db As Database
 
  Set db = CurrentDb
  On Error Resume Next
  db.TableDefs.Delete strNomTable
  On Error GoTo 0
  If IsMissing(strNomSource) Then strNomSource = strNomTable
  DoCmd.TransferDatabase acImport, "Microsoft Access", strNomBase, acTable, strNomSource, strNomTable, False
End Sub
J'execute cette fonction pour chaque table