VBA/access_remplir_base

Question

Bonjour, je souhaiterais savoir si vous connaissez un moyen plus rapide de remplir une base de données en partant d'un fichier excel plus rapide que mon code ci-dessous :

For j = 2 To nblig

Valuesreq = Valuesreq & ListeLignes(j, 1) & "'" & " ,"

For i = 2 To nbcol - 1

Valuesreq = Valuesreq & "'" & ListeLignes(j, i) & "'" & " ,"

Next i

Valuesreq = Valuesreq & "'" & ListeLignes(j, i)

Req = "INSERT INTO Nombase (" & IntReq & ") VALUES ( '" & Valuesreq & "')"

Set Cnx = CreateObject("ADODB.Connection")

Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD

Set Rst = Cnx.Execute(Req)

Valuesreq = ""

Next j

Car j'ai un tableau de 70.000 lignes et comme je remplis ma base ligne à ligne, le temps d'exécution est assez long !

Cdlt

jmd · Answer

Copier/coller ou menu données, importer (ce qui crée une connexion qu'il suffit ensuite de mettre à jour quand tu veux. surtout éviter VBA (ici comme toujours )...