Export d' Excel vers Access avec VBA depuis Access
Bonjour,
Je fais une fonction en vba qui va exporter les données d'une colonne d'une feuille excel dans le cchamp corrspondant en Access:
Or dans la boucle do while quand je veux mettre le contenu d'une cellule dans un champ de la table tbl_personnes, ça m'affiche une erreur au niveau de la condition de la boucle.
Pourriez vous m'aider svp.
Merci d'avance.
Voice mon code
Code:
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
49
50
51
52
53
| Option Compare Database
Function ExportRabih() As Integer
Dim NomFic As String
Dim Db As DAO.Database
Dim fldId_Personne As DAO.Field
Dim fldPrenom As DAO.Field
Dim appExcel As Object
Dim Xlwb As Object
Dim rs As DAO.Recordset
Dim deb As Integer
Dim ws As Object
MsgBox "Bonjour"
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Set Xlwb = appExcel.Workbooks.Open("C:\Users\rmahfouz\Desktop\Classeur1.xlsx")
Set ws = Xlwb.Sheets(1)
MsgBox ws.Cells(1, 1)
Set Db = CurrentDb
Set rs = Db.OpenRecordset("tbl_personnes", dbOpenTable)
deb = 1
Do While Len(ws.Range("A" & r).Formula) > 0
With rs
.AddNew
MsgBox ws.Cells(1, deb)
.Fields("Prenom") = ws.Cells(1, deb)
.Update
End With
deb = deb + 1
Loop
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
ExportRabih = 1
End Function |
