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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
Imports System
Imports System.Data
Imports System.Web
Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Data.Common
Imports System.Resources
Public Class Ligne
'attributs
Private StrCodeUGE As String
Private StrNomUGE As String
Private StrCodeMaitreOuvrage As String
Private StrNomMaitreOuvrage As String
Private StrAdresse1MaitreOuvrage As String
Private StrAdresse2MaitreOuvrage As String
Private StrCPMaitreOuvrage As String
Private StrCommuneMaitreOuvrage As String
Private StrCodePayeur As String
Private StrNomPayeur As String
Private StrAdresse1Payeur As String
Private StrAdresse2Payeur As String
Private StrCPPayeur As String
Private StrCommunePayeur As String
Private StrCodePSV As String
Private StrCommunePSV As String
Private StrNomPSV As String
Private StrLieuPSV As String
Private StrTypeEau As String
Private StrTypeINST As String
Private StrCodeINST As String
Private StrNomINST As String
Private oExcelApp As Excel.ApplicationClass
Private oBooks As Excel.Workbooks
Private oBook As Excel.Workbook
Private oSheet As Excel.Worksheet
Private oRien As Object
'Constructeur de la classe
Public Sub New()
End Sub
Public Sub remplissage(ByVal i As Integer)
'insertion des données du tableau dans les variables correspondantes
StrCodeUGE = CStr(oSheet.Cells(i, 1).Value2)
StrNomUGE = CStr(oSheet.Cells(i, 2).Value2)
StrCodeMaitreOuvrage = CStr(oSheet.Cells(i, 3).Value2)
StrNomMaitreOuvrage = CStr(oSheet.Cells(i, 4).Value2)
StrAdresse1MaitreOuvrage = CStr(oSheet.Cells(i, 5).Value2)
StrAdresse2MaitreOuvrage = CStr(oSheet.Cells(i, 6).Value2)
StrCPMaitreOuvrage = CStr(oSheet.Cells(i, 7).Value2)
StrCommuneMaitreOuvrage = CStr(oSheet.Cells(i, 8).Value2)
StrCodePayeur = CStr(oSheet.Cells(i, 9).Value2)
StrNomPayeur = CStr(oSheet.Cells(i, 10).Value2)
StrAdresse1Payeur = CStr(oSheet.Cells(i, 11).Value2)
StrAdresse2Payeur = CStr(oSheet.Cells(i, 12).Value2)
StrCPPayeur = CStr(oSheet.Cells(i, 13).Value2)
StrCommunePayeur = CStr(oSheet.Cells(i, 14).Value2)
StrCodePSV = CStr(oSheet.Cells(i, 15).Value2)
StrCommunePSV = CStr(oSheet.Cells(i, 16).Value2)
StrNomPSV = CStr(oSheet.Cells(i, 17).Value2)
StrLieuPSV = CStr(oSheet.Cells(i, 18).Value2)
StrTypeEau = CStr(oSheet.Cells(i, 19).Value2)
StrTypeINST = CStr(oSheet.Cells(i, 20).Value2)
StrCodeINST = CStr(oSheet.Cells(i, 21).Value2)
StrNomINST = CStr(oSheet.Cells(i, 22).Value2)
End Sub
Public Sub connection(ByVal chemin As String)
oRien = System.Reflection.Missing.Value
oExcelApp = New Excel.ApplicationClass
'je n'affiche pas mon tableau excel
oExcelApp.Visible = False
'j'ouvre le tableau
oBooks = oExcelApp.Workbooks
oBook = oBooks.Open(chemin, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien)
oSheet = oBook.Worksheets(1)
End Sub
Public Sub fermeture_connection()
'je quitte excel
oExcelApp.Quit()
oExcelApp = Nothing
End Sub
Public Function nbre_de_ligne() As Integer
Dim a As Integer
a = 2
While (oSheet.Cells(a, 2).value2 <> "")
a = a + 1
End While
Return a - 2
End Function
Public Function affiche() As String
Return StrCodeUGE
End Function
End Class |
