'Activer la référence Microsoft ActiveX Data Object 2.8 Library
Public Const Fichier$ = "C:\Users\chich\Documents\Base.accdb"
Sub CreeTables()
Dim cn As ADODB.Connection
Dim sSQL1$, sSQL2$
sSQL1 = "CREATE TABLE CLIENTS (" & _
"ID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
"Titre varchar(80), " & "Nom varchar(80), " & "Prénom varchar(80), " & "Fonction varchar(255), " & _
"Société varchar(255), " & "Adresse varchar(255), " & "Code_Postal varchar(30), " & "Ville varchar(80), " & _
"Téléphone varchar(30), " & "Fax varchar(30), " & "Email varchar(80), " & "N°_Client varchar(80))"
sSQL2 = "CREATE TABLE REPRESENTANTS (" & _
"ID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
"Titre varchar(80), " & "Nom varchar(80), " & "Prénom varchar(80), " & "Fonction varchar(255), " & _
"Société varchar(255), " & "Adresse varchar(255), " & "Code_Postal varchar(30), " & "Ville varchar(80), " & _
"Téléphone varchar(30), " & "Fax varchar(30), " & "Email varchar(80))"
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Fichier & ";"
cn.Execute sSQL1
cn.Execute sSQL2
End Sub