xirr Défi pour les pros

Salut,

dans une application access, je dois utiliser la fonction
xirr d'excel.mais pour chaque calcul je dois ouvrir une
feuille excel, importer mes données et recuperer le
resultat.Cela ralenti enormement l'application.
quelqu'un aurait il l'algorithme xirr pour le calculer
directement dans access???



Avec une fonction... peut-être ;-))

Function myxirr( v As Variant, d As Variant, Optional g As Double = 0 ) As Variant
'-------------------------------------------------------
'this udf requires an explicit reference to APTVBAEN.XLA
'-------------------------------------------------------
Dim vv As Variant, dd As Variant, x As Variant, i As Long

If TypeOf v Is Range Then
ReDim vv(1 To v.Cells.Count)
i = 0
For Each x In v
i = i + 1
vv(i) = x.Value
Next x
Else
vv = v
End If

If TypeOf d Is Range Then
ReDim dd(1 To d.Cells.Count)
i = 0
For Each x In d
i = i + 1
dd(i) = x.Value
Next x
Else
dd = d
End If

myxirr = IIf(g <> 0, xirr(vv, dd, g), xirr(vv, dd))

End Function



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------