Dim Base As Database Dim SQL As String 'ouverture de la base de donnée Set Base = Workspaces(0).OpenDatabase(LCase(App.Path & "\MaBase.mdb")) SQL = "INSERT INTO Historique (Champs1,Champs2,Champs3)" & _ "VALUES ('" & Val1 & "','" & Val2 & "','" & Val3 & "')" Base.Execute SQL Base.Close Set Base = Nothing