Via VBA, Jointure SQL entre deux fichier

Bonjour j'ai un tableau excel.

Je créer une table etc... et je me demande si c'est possible de créer ma table via mon tableau excel ( ca c'est OK) mais de faire une jointure ou une sous requête pour prendre une colonne ID d'un fichier access et d'en faire une clef étrangère afin que la table que je créer soit lier avec mon fichier access?

oubien de prendre mon tableau excel tableau() et le mettre dans une table que je créer avec pour nom de chaque colonne la première cellule de chaque colonne de mon tableau

Sub creertable()
Dim semaine%, num_colonne%
Dim ladate As Date
ladate = Date
semaine = Format(ladate, "ww", vbMonday, vbFirstFourDays)
'On Error GoTo lastline:
'Définition du pilote de connexion en fonction de la version office
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "mon chemin"
'Ouverture de la base de données
cnx.Open
With Sheets("pointage")
cnx.Execute "CREATE TABLE S" & semaine & _
             "()"

cnx.Execute "DROP TABLE  S" & semaine
Set cnx = Nothing
Exit Sub
lastline:
Set cnx = Nothing
End Sub

j'avance un peu dans mon code m'ai j'ai un problème de syntaxe avec create table !!! ...

Public cnx As New ADODB.Connection
Public rst As New ADODB.Recordset
'------------------------------------------
Sub creertable()
Dim semaine%, num_colonne%
Dim ladate As Date
ladate = Date
semaine = Format(ladate, "ww", vbMonday, vbFirstFourDays)
'On Error GoTo lastline:
'Définition du pilote de connexion en fonction de la version office
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "mon fichier"
'Ouverture de la base de données
cnx.Open

cnx.Execute "CREATE TABLE S" & semaine & "([ID] decimal(3)" & _
             "[Nom_Prenom] text(40))" '& _
            " FOREIGN KEY(ID) REFERENCES Pointage(identifiant_salarie))"
 For x = 1 To 34
cnx.Execute "ALTER TABLE Pointage" & _
            "ADD" & Cells(3, 624 + x).Value
  Next x

  'remplir mes colonnes avec mon tableau excel

cnx.Execute "DROP TABLE  S" & semaine
Set cnx = Nothing
Exit Sub
lastline:
Set cnx = Nothing
End Sub

cnx.Execute "CREATE TABLE [S" & semaine & "]('ID' integer not null)"

fonctionne

cnx.Execute "CREATE TABLE [S" & semaine & "]('ID' integer not null" & _
             "'Lenom_Prenom' VARCHAR)

ne fonctionne pas.....

trouvé ... il manque une virgule entre la déclaration des deux colonne ..... !