Dim wbfile as workbook
Dim a as variant
Dim b as variant
'...ouverture excel etc.
set wbfile = Xls.workbooks.open("monclasseur.xls")
' Récupération de la valeur a
a = wbfile.sheets("toto").range("A1")
' Récupération de B
b = wbfile.sheets("toto").range("B1")
' On a les données voulues plus besoin excel
wbfile.close False 'aucune modif
set wbfile = nothing
xls.application.close
set xls = nothing
' verifie qu'on a des nombres
if isnumeric(a) and isnumeric(b) then
currentdb.execute "INSERT INTO MATABLE(VALEUR_A,VALEUR_B,VALEUR_C) SELECT " & _
a & " as vA," & b & "as vB," & cdbl(a-b) & " as vDiff"
end if