Discussion :

[speedway]

Bonjour,

Dans le cadre d'un calcul sous Excel (mais avec de la programmation VB), j'ai utilisé la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Poisson(Nb_IP, dem_est, 1)

. C'est la loi de Poisson.

Dans un objectif de généraliser, je suis en train de basculer ce calcul sous Access. J'ai donc voulu reprendre mon code VB d'Excel vers Access, mais là j'ai une erreur sur "WorksheetFunction". Normal vous me direz... (Access ne travaillant pas sur des feuilles). Cependant, je ne trouve pas sous Access une fonction (ou application ou commande) toute faite me permettant d'appliquer la Loi de Poisson.

L'utilisation de cette loi me sert dans le calcul théorique du nombre de rechange fonction de divers paramètres.

Merci de votre aide.

[Jean-Philippe André]

bonjour speedway,
tu peux ajouter la référence d'excel dans ton projet, et créer une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appexcel as New Excel.Application

par exemple,
tu pourras repartir d'appexcel pour utiliser les fonctions.

[pgz]

Bonjour.

Tu peux continuer à utiliser les fonctions XL. Sous éditeur VBA, dans Outils/références tu sélectionnes Microsoft Excel ...
Dans ta procédure tu crées une instance d'Excel, et tu peux y aller..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Machin(...)
Dim xlApp as Excel.Application
 
Set xlApp = New Excel.Application
...
... xlApp.WorkSheetFunction.Poisson(...)
...
xlapp.quit
 
set xlapp = nothing

Tu trouveras probablement en FAQ des trucs sur le sujet.

PGZ

[speedway]

Bonjour jpcheck et pgz,

Merci pour vos rapides réponses !!!!

J'ai appliqué en premier celle de jpcheck et cela fonctionne !!!

Trop cool ! Encore merci pour ce service !

[clemasson]

Bonjour le forum,

je viens peut-être un peu tard pour ce post mais quelqu'un pourrait-il m'expliquer ce que pgz dit dans son dernier post ?

Code :
Sub Machin(...)
Dim xlApp as Excel.Application

Set xlApp = New Excel.Application
...
... xlApp.WorkSheetFunction.Poisson(...)
...
xlapp.quit

set xlapp = nothing

ça veut dire que l'on n'a pas besoin d'avoir excel pour utiliser la fonction (loi de poisson) ?

En fait, je pense créer un runtime qui devra utiliser la formule. Sinon je créerai la table de poisson "en dur" ce qui n'est pas terrible et très lourd, je le reconnais.

Alors si quelqu'un a des infos ou des exemples avec d'autres formules particulières, je suis plus que preneur

Merci à tous !

[clemasson]

ça y est !

j'ai trouvé ma réponse, voici mon code :

Private Sub test()
Dim xl As New Excel.Application
Dim WF As WorksheetFunction
Dim dResult As Double

Set WF = xl.WorksheetFunction

'Function Poisson(Arg1 As Double, Arg2 As Double, Arg3 As Boolean) As Double
dResult = WF.Poisson(1, 0.001, 1)

MsgBox dResult

xl.Quit
Set WF = Nothing
Set xl = Nothing

End Sub