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
| Private Sub Importation()
'définit la table : pour mettre d'autre tables rajouter dim rst2 as recordset par exemple
Dim rst As Recordset
'définit la base de de données
Dim db As Database
'chemin d'accès à la base de données
Set db = DBEngine.OpenDatabase("C:\Documents and Settings\mayol\Bureau\Tableaux de bord - 2eme mouture\BDD\telephonie\test.mdb")
'on affecte une table à un objet défini recordset
Set rst = db.OpenRecordset("Fixes")
'on active le classeur
Workbooks("120794199X_9A0000341225_1.xls").Worksheets("120794199X_9A0000341225_1").Activate
Dim i%
'on fait la boucke pour parcourir 10 lignes
For i% = 1 To 10
With rst
.MoveLast
.AddNew
'la cellule 1,1 corespond à la cellule 1, A
.Fields("Nom du premier champ").Value = Cells(i%, 1).Value
.Fields("Nom du deuxième champ").Value = Cells(i%, 1).Value
.Update
End With
Next
End Sub |
Partager