bonjour,

ci dessous ma fonction et

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function chargement_cours_j_moins1correlationindice(codeprodui) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
 
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _ = '" & codeprodui & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = ptr("_COURSCLOSE")
        Exit Do
    Loop
    chargement_cours_j_moins1correlationindice = cours


je joints en pièce jointe le message d'erreur associé. je ne comprends pas ce message!!!

merci de votre aide

Oliver