amine.ghazi
XLDnaute Nouveau
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.
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:
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
