Discussion :

[b.noureddine]

Bonsoir tout le monde,
j'ai un probléme avec la fonction dlookup sur vba, j'arrive pas a l'appliquer quand je lance ma macro j'ai un message d'erreur de compilation: Sub ou Function non définie. Merci a tous, (ps: je suis un débutant )

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub tab_pd()
    Dim rsData, rsData2 As ADODB.Recordset
    Dim sConnect As String
    Dim sSQL, sSQL2 As String
    Dim tab_Rating(), tab_pf(), tab_pd
    Dim a, dlookup As Variant
    Dim i, j As Variant
    Dim n As Variant
 
 
    sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
               "Data Source=C:\Users\BOUMLAIK\Desktop\M2\VBA\Nouveau dossier\VBA\Projet VBA mdb\Credit_Portfolio.accdb"
 
    ' chargement des parametres par defaut
    sSQL = "SELECT * " & _
           "FROM Portfolio;"
 
    Set rsData = New ADODB.Recordset
    rsData.Open sSQL, sConnect
 
    sSQL2 = "SELECT * " & _
           "FROM Rating;"
 
    Set rsData2 = New ADODB.Recordset
    rsData2.Open sSQL2, sConnect
 
    'nbSimul.Text = rsData.Fields(0)
    'corr.Text = rsData.Fields(1)
    'IC.Text = rsData.Fields(3)
 
    tab_Rating = rsData2.GetRows(99)
    tab_pf = rsData.GetRows(99)
 
 
    a = dlookup(5, "tab_Rating", "[1Y]=2")
 
 
End Sub

[mercatog]

Tu es sur du vba Excel