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
|
Option Explicit
Type RF
site As String
tranche As String
End Type
Type Action
equipement As RF
position As String
End Type
Sub Export(ByRef config As Action)
'Ecrit dans le fichier txt
Dim chemin As String
Dim ligne As Integer
chemin = "C:\Users\utilisateur\Desktop\Export.csv"
Open chemin For Output As #1
For ligne = 0 To UBound(config)
Print #1, config(ligne).position,
Next ligne
Close #1
MsgBox ("Export effectué avec succès !")
End Sub
Sub main()
Dim equipement1 As RF
Dim equipement2 As RF
Dim config(2) As Action
equipement1.site = "SITE1"
equipement1.tranche = "TRANCHE1"
equipement2.site = "SITE2"
equipement2.tranche = "TRANCHE2"
config(0).equipement = equipement1
config(0).position = "POSITION1"
config(1).equipement = equipement2
config(1).position = "POSITION2"
Call Export(config)
End Sub |
Partager