Passage d'excel vers Access

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.


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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
282
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
174
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
652
Réponses
8
Affichages
472
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
490
Retour