Exporter Excel vers Access

Question

Bonjour,
je souhaite exporter des données d'Excel vers Access 97 mais g un petit pb lorsque je clique sur le bouton de commande : "Le jeu d'enregistrements ne prend pas en charge la maj, il s'agit peut etre d'une limitation du fournisseur ou du type de verrou selectionné."
Si qqn a une idée...
Voici mon code:

'On declare les variables
Dim DBFullName As String
Dim Cnct As String, Scr As String
Dim Connection As ADODB.Connection
Dim Recordset As ADODB.Recordset
Dim col As Integer
Dim num As String

' Base de données
DBFullName = ThisWorkbook.Path & "\Gestion des affaires.mdb"

' Ouvre la connexion
Set Connection = New ADODB.Connection
Cnct = "Provider=Microsoft.Jet.OLEDB.4.0;"
Cnct = Cnct & "Data Source=" & DBFullName & ";"
Connection.Open ConnectionString:=Cnct

' Numero d'affaire
num = Feuil2.Cells(3, 4)

' Création du recordset
Set Recordset = New ADODB.Recordset
With Recordset    src "Select * from DETAIL_PHASE where REF_AFFAIRE ' & num & '"
    .Open Source:=src, ActiveConnection:=Connection
    .Fields("SS_TRAITANCE") = Feuil2.Cells(41, 8).Text
    .Fields("SS_TOTAL") = Feuil2.Cells(41, 6).Text
    .Fields("COEF") = Feuil2.Cells(58, 3).Text
    .Fields("SS_TOTAL_HONOS") = Feuil2.Cells(58, 2).Text
    .Fields("HEURES") = Feuil2.Cells(28, 7).Text
End With

Set Recordset = Nothing
Connection.Close
Set Connection = Nothing

End Sub

carnez · Answer

salut,

tu as oublié de déclarer ton recordset en maj :

with recordset

.open source:=src, Active connection:=Connection, adopenkeyset, adlockoptimistic

avec ça, ça devrait marcher

Colibri

Exporter Excel vers Access

1 réponse

Discussions similaires