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.


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
 
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