Passage d'excel vers Access

[amine.ghazi]

Bonjour à tous,

je suis débutant sur VBA et j'aurais besoin d'aide pour un code qui est sencé extraire quelques données d'un fichier excel vers une base de donnée existante.
le problème est que le code bug dès les 1ères lignes, avec une exécution pas à pas, je me suis aperçu que c'est en essayant d'ouvrir la BD que cela coince.
(erreur d'exécution 3343 ).
(J'ai vérifié que la référence DAO est bien active )

je vous mets une partie du code pour illustrer;

merci d'avance de votre aide.

Sub Export()

Dim Db As DAO.Database
Dim champs As DAO.Recordset
Dim valeurs As DAO.Recordset
Dim requetesql As String
Dim Chemin As String
Chemin = "M:\settings\Desktop\APAA\bd.mdb"
Set Db = DAO.OpenDatabase(Chemin, False, False)
Dim nbchamps As Integer
Dim i As Integer
Dim j As Integer


Set champs = Db.OpenRecordset("SELECT * FROM APAA")

ThisWorkbook.Worksheets(2).Activate

For i = 2 To Worksheets(2).Rows.Count
    For j = 1 To Worksheets(2).Columns.Count
            valeurs(1) = Cells(i,3).Value
            valeurs(2) = Cells(i,1).Value
            valeurs(3) = "5885"
            valeurs(4) = Right(cells(1,j+5).value,8)
            valeurs(5) = "ZUN"
            valeurs(6) = cells(i,j+5).value
        requetesql = "INSERT INTO APAA (champs(1),champs(2),champs(3),champs(4),champs(5),champs(6)) (valeurs(1),valeurs(2),valeurs(3),valeurs(4),valeurs(5),valeurs(6)) "
        Db.Execute requetesql
    Next
Next


End Sub