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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
Private Sub AjoutDansTableAccess(NomTable As String)
Dim ConnectBD As Object
Dim Rs As Object
Dim AppExcel As Object
Dim Classeur As Object
Dim Feuille As Object
Dim I As Integer
Dim j As Integer
MyPath = ActiveWorkbook.Path
Application.StatusBar = "Ouverture du classeur Excel contenant les données à exporter ..."
' Déclaration de référence d'objet à une variable
Set AppExcel = CreateObject("Excel.Application")
Set Classeur = AppExcel.Workbooks.Open(MyPath & "\Prototype mafeuilleexcel.xls")
Set Feuille = Classeur.Worksheets("mafeuill1") 'Adapter le nom de la feuille
'Connection à la base Accesse
ConnecterBase ConnectBD, Rs
'Inscrit les valeurs de la feuille Excel dans la table ListeClients
With Rs
.CursorType = 1
.LockType = 3
.Open "SELECT * FROM tab_access1 ", ConnectBD
'Ajout des enregistrements situés à partir de
' la ligne 2 afin d'éviter les entêtes de colonnes
For I = 4 To Feuille.Range("A65536").End(-4162).Row
.AddNew
.Fields("nom") = Feuille.Cells(I, 3)
.Fields("prenom") = Feuille.Cells(I, 3)
.fields("ville") = Feuille.Cells(9, 12)
.Fields("Team ") = Feuille.Cells(9, 3)
.Update
Next I
End With
Application.StatusBar = "cool"
ConnectBD.Close
Classeur.Close
AppExcel.Quit
' Met fin à l'association entre la variable et l'objet associé
Set AppExcel = Nothing
Set Classeur = Nothing
Set Feuille = Nothing
Set ConnectBD = Nothing
Set Rs = Nothing
end ....
'module connecterbase... |
