OVH Cloud OVH Cloud

XIRR/TRI.PAIEMENT

4 réponses
Avatar
Le NooB
Bonjour,

j'ai besoin de la fonction financière Excel TRI.PAIEMENT (XIRR).

Dans Access il n'y a que la fonction intégrée IRR (TRI)

Quelqu'un a un module pour ça, ou comment appeler la fonction Excel depuis
Access ?

Merci d'avance

4 réponses

Avatar
Rv
Salut,

Un petit exemple :
Sub testCalcExcel
Dim objAppExcel as new Excel.Application

msgbox objAppExcel.WorksheetFunction.XIrr(...)
objAppExcel .Quit
set objAppExcel = nothing
End sub

Il faut au préalable declarer la référence à "Microsoft Excel x.xx
Object Library" (x.xx selon les versions).

A+

Rv

"Le NooB" a écrit dans le message de
news:
Bonjour,

j'ai besoin de la fonction financière Excel TRI.PAIEMENT (XIRR).

Dans Access il n'y a que la fonction intégrée IRR (TRI)

Quelqu'un a un module pour ça, ou comment appeler la fonction Excel depuis
Access ?

Merci d'avance




Avatar
Le NooB
Merci Rv,
:)
Ca paraît être un bon début, mais j'avoue que je n'y comprends pas gd chose.

Que dois je mettre entre les parenthèses (je suis rien qu'un newbie !)
Sachant que mes données sont dans une table tempo que je créé spécialement,
avec un nombre d'enregistrements variables ?

J'ai donc créé un module, déclaré ma référence 11.0 excel, mais bon ...

Merci pour plus d'explications


"Rv" a écrit dans le message de
news:%
Salut,

Un petit exemple :
Sub testCalcExcel
Dim objAppExcel as new Excel.Application

msgbox objAppExcel.WorksheetFunction.XIrr(...)
objAppExcel .Quit
set objAppExcel = nothing
End sub

Il faut au préalable declarer la référence à "Microsoft Excel x.xx
Object Library" (x.xx selon les versions).

A+

Rv

"Le NooB" a écrit dans le message
de

news:
Bonjour,

j'ai besoin de la fonction financière Excel TRI.PAIEMENT (XIRR).

Dans Access il n'y a que la fonction intégrée IRR (TRI)

Quelqu'un a un module pour ça, ou comment appeler la fonction Excel
depuis


Access ?

Merci d'avance








Avatar
Le NooB
En plus, lorsque je lance l'explorateur d'objet dans VBA, j'ai des tas de
fonctions dans "WorksheetFunction", mais pas l'ombre de la queue d'un
"XIrr".
Sachant que pour déclarer, j'ai coché "excel object library" dans le menu
"Références"

Snif

"Le NooB" a écrit dans le message de
news:%
Merci Rv,
:)
Ca paraît être un bon début, mais j'avoue que je n'y comprends pas gd
chose.


Que dois je mettre entre les parenthèses (je suis rien qu'un newbie !)
Sachant que mes données sont dans une table tempo que je créé
spécialement,

avec un nombre d'enregistrements variables ?

J'ai donc créé un module, déclaré ma référence 11.0 excel, mais bon ...

Merci pour plus d'explications


"Rv" a écrit dans le message de
news:%
Salut,

Un petit exemple :
Sub testCalcExcel
Dim objAppExcel as new Excel.Application

msgbox objAppExcel.WorksheetFunction.XIrr(...)
objAppExcel .Quit
set objAppExcel = nothing
End sub

Il faut au préalable declarer la référence à "Microsoft Excel x.xx
Object Library" (x.xx selon les versions).

A+

Rv

"Le NooB" a écrit dans le message
de

news:
Bonjour,

j'ai besoin de la fonction financière Excel TRI.PAIEMENT (XIRR).

Dans Access il n'y a que la fonction intégrée IRR (TRI)

Quelqu'un a un module pour ça, ou comment appeler la fonction Excel
depuis


Access ?

Merci d'avance












Avatar
Le NooB
Décidement, je reste bien seul, snif.

Bon, j'ai fait marcher le bidule en modifiant les trucs comme ça :

Sub xlAddin()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("excel.application")
objExcel.Workbooks.Open ("D:Program FilesMicrosoft
OfficeOFFICE11BibliothèqueAnalyseatpvbaen.xla")

Dim p(4) As Double
p(0) = -10000
p(1) = 2750
p(2) = 4250
p(3) = 3250
p(4) = 2750

Dim d(4) As Date
d(0) = #1/1/1998#
d(1) = #3/1/1998#
d(2) = #10/30/1998#
d(3) = #2/15/1999#
d(4) = #4/1/1999#

objExcel.Workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
MsgBox objExcel.Application.Run("atpvbaen.xla!xirr", p, d)
bjExcel.Quit
Set objExcel = Nothing

End Sub

Bien entendu, je comprends même pas le dixième du comment et pourquoi ça
marche.

Donc à ce stade là, s'il pouvait intégrer les champs "Flux" et "Temps" de ma
table en lieu et place des p & d ça serait vraiment top. Pis tant qu'à
faire, s'il me collait le résultat quelque part plutôt que de me l'afficher
dans une msgbx, vous seriez vraiment le phénix des hôtes de ce forum !


"Le NooB" a écrit dans le message de
news:e9j$
En plus, lorsque je lance l'explorateur d'objet dans VBA, j'ai des tas de
fonctions dans "WorksheetFunction", mais pas l'ombre de la queue d'un
"XIrr".
Sachant que pour déclarer, j'ai coché "excel object library" dans le menu
"Références"

Snif

"Le NooB" a écrit dans le message de
news:%
Merci Rv,
:)
Ca paraît être un bon début, mais j'avoue que je n'y comprends pas gd
chose.


Que dois je mettre entre les parenthèses (je suis rien qu'un newbie !)
Sachant que mes données sont dans une table tempo que je créé
spécialement,

avec un nombre d'enregistrements variables ?

J'ai donc créé un module, déclaré ma référence 11.0 excel, mais bon ...

Merci pour plus d'explications


"Rv" a écrit dans le message de
news:%
Salut,

Un petit exemple :
Sub testCalcExcel
Dim objAppExcel as new Excel.Application

msgbox objAppExcel.WorksheetFunction.XIrr(...)
objAppExcel .Quit
set objAppExcel = nothing
End sub

Il faut au préalable declarer la référence à "Microsoft Excel x.xx
Object Library" (x.xx selon les versions).

A+

Rv

"Le NooB" a écrit dans le
message



de
news:
Bonjour,

j'ai besoin de la fonction financière Excel TRI.PAIEMENT (XIRR).

Dans Access il n'y a que la fonction intégrée IRR (TRI)

Quelqu'un a un module pour ça, ou comment appeler la fonction Excel
depuis


Access ?

Merci d'avance