bonjour voila mon code,
le compilateur bloque sur MyTable2 dans le With de la fin.
Sub Fait_la_base()
Set MyDatabase = CreateDatabase("??", dbLangGeneral)
Set MyDatabase = OpenDatabase("??")
Set MyTable = MyDatabase.CreateTableDef("ResStation")
'delete the table if it already exists
'MyDatabase.TableDefs.Delete MyTable.name
With MyTable
.Fields.Append .CreateField("Station N°", dbInteger)
End With
Set MyTable2 = MyDatabase.CreateTableDef("ResExam_gnl_station")
With MyTable2
.Fields.Append .CreateField("ANALYSEUR")
End With
With MyDatabase
.TableDefs.Append MyTable
.TableDefs.Append MyTable2
End With
MyDatabase.Close
End Sub
Merci.