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
| Private Sub cmdsave_Click()
Dim paramfile As FileCtl.File
Set paramfile = CreateObject("FileCtl.File")
client = txtclt.Text
Ref2 = ref.Text
Npiece = nom_p.Text
Ppiece = tot.Text
Totse = Ttot.Text
Nens = nbens.Text
TotalG = txtens.Text
'création d'un nouveau fichier text vide
Call paramfile.Open("\my documents\Walf.txt", fsModeOutput, fsAccessWrite, fsLockReadWrite)
'Ecriture des nouveaux paramètres dans le fichier
Call paramfile.LinePrint(client)
Call paramfile.LinePrint(Ref2)
Call paramfile.LinePrint(Npiece)
Call paramfile.LinePrint(Ppiece)
Call paramfile.LinePrint(Totse)
Call paramfile.LinePrint(Nens)
Call paramfile.LinePrint(TotalG)
Call paramfile.Close
End Sub |
