Discussion :

[Loki83]

Bonjour,
Je cherche à établir une requête pour remplir ma base de données Access à partir de données excel.
Cependant, j'ai une erreur "Compile error : Method or data member not found" qui apparait. l'erreur apparait sur le Open surligné en gras dans mon code.
ça fait longtemps que j'essaye et je ne trouve pas de solutions... Pouvez vous m'aider?

D'avance merci!
Vincent

Code VB :

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
'insértion des données dans la BD

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.jet.oledb.4.0;" & "Data Source=P:\Services\OPC\Vincent\Pricer\db1.mdb"

Set Di = New ADODB.Recordset
Di.Open "Corporate", cn, adOpenKeyset, adLockOptimistic, adCmdTable
On Error Resume Next

With Di
        .AddNew  'create a new record
        .Field("ISIN") = Cells(j, 4).Value
        .Field("Ticker") = Cells(j, 5).Value
        .Field("Emetteur") = Cells(j, 6).Value
        .Field("Coupon") = Cells(j, 7).Value
        .Field("Floater") = Cells(j, 13).Value
        .Field("Maturité") = Cells(j, 18).Value
        .Field("Devise") = Cells(j, 16).Value
        .Field("Moodys") = Cells(j, 14).Value
        .Field("SP") = Cells(j, 15).Value
        .Update
End With

[LedZeppII]

Bonjour,

Est-ce que la variable objet Di est bien déclarée comme ça ?

Code :

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

Dim Di As ADODB.Recordset

A+

[Loki83]

Merci pour ton message.
Oui il était bien défini comme ça.

Finalement, j'ai contourné le problème en faisant une vraie requete SQL.

[LedZeppII]

Bonjour,

Il manque un "s" à Fields. Ça venait peut-être de là.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
With Di
        .AddNew  'create a new record
        .Fields("ISIN") = Cells(j, 4).Value
        .Fields("Ticker") = Cells(j, 5).Value
        .Fields("Emetteur") = Cells(j, 6).Value
        .Fields("Coupon") = Cells(j, 7).Value
        .Fields("Floater") = Cells(j, 13).Value
        .Fields("Maturité") = Cells(j, 18).Value
        .Fields("Devise") = Cells(j, 16).Value
        .Fields("Moodys") = Cells(j, 14).Value
        .Fields("SP") = Cells(j, 15).Value
        .Update
End With

A+