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
| Private Sub UserForm_Initialize()
Dim strConnection As String
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Gestion_stocks.accdb" & ";"
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Article3.AddItem "Acheté"
Article3.AddItem "Fabriqué"
Dim rs As Object
Dim ligne As Integer
Set rs = conn.Execute("SELECT * FROM Article")
If rs.EOF = False Then
ligne = 2
Article3.Clear
While Not rs.EOF
Article3.AddItem rs.Fields(2)
Feuil1.Cells(ligne, 3) = rs.Fields(2)
rs.MoveNext
ligne = ligne + 1
Wend
Else
MsgBox ("erreur")
End If
Set rs = conn.Execute("SELECT * FROM Categorie")
If rs.EOF = False Then
ligne = 2
Article4.Clear
While Not rs.EOF
Article4.AddItem rs.Fields(3)
Feuil1.Cells(ligne, 4) = rs.Fields(3)
rs.MoveNext
ligne = ligne + 1
Wend
Else
MsgBox ("erreur")
End If
Set rs = conn.Execute("SELECT * FROM Unités")
If rs.EOF = False Then
ligne = 2
Article5.Clear
While Not rs.EOF
Article5.AddItem rs.Fields(4)
Feuil1.Cells(ligne, 5) = rs.Fields(4)
rs.MoveNext
ligne = ligne + 1
Wend
Else
MsgBox ("erreur")
End If
End Sub |
