Bonjour,

Je début dans le code VBA pour export Access. J'ai réussi à exporter des données Excel sous Access avec un Access au format *.mdb. En revanche, je ne trouve pas la solution pour export sous accdb.

Pouvez-vous m'aider?

Ci-dessous le code fonctionnant

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
      Dim Plage   As Range
      Dim Array1   As Variant
      Dim x   As Variant
      Dim Db1   As Database
      Dim Rs1   As Recordset
 
      ' Ouverture de la base de données Commandes.mdb
 
      Set Db1 = DBEngine.OpenDatabase(Adr_BD & Nom_BD)
 
      ' Ouverture de la table
      ' Un objet Recordset représente les enregistrements d'une table
 
      Set Rs1 = Db1.OpenRecordset(table_BD, dbOpenDynaset)
 
      ' Ecriture des données depuis Excel vers Access
 
 
           With Rs1
 
               .AddNew
               .Fields("Nom_BDU") = Cells(2, 2)
               .Fields("Num_DE") = Cells(3, 2)
               .Fields("Nom_TSE") = Cells(4, 2)
               .Fields("Nom_demandeur") = Cells(5, 2)
               .Fields("Sce_demandeur") = Cells(6, 2)
               .Fields("NQL") = Cells(7, 2)
               .Fields("NQI") = Cells(8, 2)
               .Fields("NQA") = Cells(9, 2)
               .Fields("NDI") = Cells(10, 2)
               .Fields("NPQ") = Cells(11, 2)
               .Fields("NRhC") = Cells(12, 2)
               .Fields("CQL") = Cells(13, 2)
               .Fields("CQI") = Cells(14, 2)
               .Fields("CQA") = Cells(15, 2)
               .Fields("CDI") = Cells(16, 2)
               .Fields("CPQ") = Cells(17, 2)
               .Fields("CRhC") = Cells(18, 2)
               .Fields("Moyenne") = Cells(19, 2)
               .Update
 
           End With
 
 
 
      ' Fermeture de la base Commandes.mdb
 
     Db1.Close