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
Partager