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 : 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
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