cet exemple ouvre une base access et utilise une fonction de VBA Access pour connaître la valeur minimale de la table Table1 répondant au critère champ2=2
Sub toAutomate()
Static ac As Access.Application
Set ac = New Access.Application
ac.Visible = False
ac.OpenCurrentDatabase ("c:\winnt\profiles\royers\bureau\bd1.mdb")
valeurmin = ac.DMin("[Champ1]", "Table1", "[Champ2] = 2")
ac.Quit acQuitSaveNone
Set ac = Nothing
MsgBox valeurmin
End Sub
bye
stephane