Discussion :

[lulux80]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai testé ça mais rien ne marche, ça me mets plutôt

An error was encountered while running this program

[AlainTech]

Pour déterminer ce qui provoque l'erreur, il faut y aller pas à pas:
Créer une Sub dans laquelle on ajoute une ligne à la fois et on essaye de faire tourner.

La dernière ligne ajoutée avant que l'erreur n'apparaisse est la ligne incriminée.

Visiblement, il n'y a personne, ici, qui connaisse eVB. On essaye donc de t'aider avec des réponses générales.

Si j'en ai l'occasion, j'essayerai de trouver ce programme pour voir comment il se comporte mais, actuellement, on ne peut t'aider qu'avec de la logique mais jamais avec des réponses sures.