[VB6] fichier vers textbox

slt tout le monde voilà j'ai un projet comprenent deux feuilles et un module. Ma première feuille intitulée X montre les dépenses, les recettes, le nombre selon les catégories de pensionnaires ( profs, étudiants...) d'une cantine. Ma deuxième feuille nommée Y possède un textbox, un bouton ouvrir, un bouton effacer, et un bouton fin. Je voudrais enregistrer les infos saisies de la feuille X avec la date vers cette deuxième feuille Y afin d'obtenir un récapitulatif des journées avec les dépenses encourues et ceci consultable à n'importe quel moment. En gros, c'est comme une feuille récapitulative du mois , un journal de bord . Voilà, j'espère avoir été assez claire pour que vous puissiez.
merci

Montre-nous le code que tu as coçmmencé à écrire à cet effet.

tout d'abord je ne vois pas de rapport entre ton titre et ton probleme. Priere de bien vouloir le revoir.

Ensuite que veux tu faire effectivement ?? mettre ces info (venant de la form X) dans le textbox (de la form Y). Si tel est le cas alors essai ceci :

Code:

---

1 2	formY.text1.text = formX.text1.text

---

si la reponse n'est pas satisfaisante, eclaircis ta demande.

voilà le code de la première feuille:

Code:

---

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

Private Sub cmd_charge_Click() txt_charge.Text = txt_totalrepas.Text - txt_totalusagers.Text End Sub Private Sub Cmd_effacer_Click() txt_internesDP.Text = "" txt_profsbas.Text = "" Txt_profshaut.Text = "" Txt_agents.Text = "" Txt_etudiants.Text = "" Txt_personnesexterieures.Text = "" txt_entrees.Text = "" txt_coutautres.Text = "" txt_dessert.Text = "" txt_plat1.Text = "" Txt_plat2.Text = "" txt_prix1.Text = "" txt_prix2.Text = "" txt_total.Text = "" txt_totalusagers.Text = "" txt_charge.Text = "" txt_perte.Text = "" txt_reel.Text = "" txt_totalrepas.Text = "" End Sub Private Sub Cmd_fin_Click() End End Sub   Private Sub cmd_perte_Click() txt_perte.Text = txt_reel.Text - txt_totalusagers.Text End Sub Private Sub cmd_reel_Click() txt_reel.Text = Val(txt_entrees.Text) * 0.27 + Val(txt_plat1.Text) * Val(txt_prix1.Text) + Val(Txt_plat2.Text) * Val(txt_prix2.Text) + Val(txt_dessert.Text) * 0.12 + Val(txt_coutautres.Text) End Sub Private Sub cmd_total_Click() txt_total.Text = Val(Txt_agents.Text) + Val(Txt_etudiants.Text) + Val(txt_internesDP.Text) + Val(Txt_personnesexterieures.Text) + Val(txt_profsbas.Text) + Val(Txt_profshaut.Text) End Sub Private Sub cmd_totalrepas_Click() txt_totalrepas.Text = txt_total.Text * 6 End Sub Private Sub cmd_totalusagers_Click() txt_totalusagers.Text = txt_profsbas.Text * 3.22 + Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + Txt_personnesexterieures.Text * 4.55 End Sub Private Sub Cmd_enregistrer_Click() F_enregistrer.Show End Sub Private Sub Form_Load() numfic = FreeFile 'dossier libre créé Open "txt_affichage.text" For Random As #numfic Timer1.Enabled = True Timer1.Interval = 1 'l'interval est le nbre de millisecondes au bout duquel l'évènement timer.timer a lieu End Sub Private Sub Timer1_Timer() Dim today As Date Lbl_today.Caption = Format$(Date, "dddd dd mmmm yyyy") Lbl_today.Caption = UCase(Left(Lbl_today.Caption, 1)) & Right(Lbl_today.Caption, Len(Lbl_today.Caption) - 1) Lbl_today.Caption = Lbl_today.Caption & " " & " " & Format$(Time, " - hh:mm:ss") End Sub Private Sub txt_coutautres_Change() If Not IsNumeric(txt_coutautres.Text) Then MsgBox "Veuillez insérez des chiffres!" End If If txt_coutautres.Text = "," Then MsgBox " Veuillez insérer des points et non des virgules!" End If End Sub

---

voilà ensuite le code de la deuxième feuille ( form Y):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Cmd_effacer_Click() Cmd_effacer = "" End Sub Private Sub Cmd_fin_Click() End End Sub Private Sub Cmd_ouvrir_Click() f_ticketrepas.SetFocus End Sub Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() Dim today As Date Lbl_today.Caption = Format$(Date, "dddd dd mmmm yyyy") Lbl_today.Caption = UCase(Left(Lbl_today.Caption, 1)) & Right(Lbl_today.Caption, Len(Lbl_today.Caption) - 1) Lbl_today.Caption = Lbl_today.Caption & " " & " " & Format$(Time, " - hh:mm:ss") End Sub

---

et dsl d'avoir mal intitulé mon titre mais je suis encore qu'une débutante en vb alors dsl

avant de commencer j'ai detecter plusieur erreur dans ton code. Je vais donc te le montrer.

Citation:

---

Envoyé par m_didi

Private Sub Cmd_effacer_Click()
txt_internesDP.Text = ""
txt_profsbas.Text = ""
Txt_profshaut.Text = ""
Txt_agents.Text = ""
Txt_etudiants.Text = ""
Txt_personnesexterieures.Text = ""
txt_entrees.Text = ""
txt_coutautres.Text = ""
txt_dessert.Text = ""
txt_plat1.Text = ""
Txt_plat2.Text = ""
txt_prix1.Text = ""
txt_prix2.Text = ""
txt_total.Text = ""
txt_totalusagers.Text = ""
txt_charge.Text = ""
txt_perte.Text = ""
txt_reel.Text = ""
txt_totalrepas.Text = ""
End Sub

---

optimisation de cette procedure

Code:

---

1 2 3 4 5 6 7 8

Private Sub Cmd_effacer_Click() dim ctl as control   for each ctl in controls if typeof ctl is textbox then ctl.text="" next End Sub

---

Citation:

---

Envoyé par m_didi

Private Sub cmd_perte_Click()
txt_perte.Text = txt_reel.Text - txt_totalusagers.Text
End Sub

---

il ne va jamais marche plutot

Code:

---

1 2 3 4

Private Sub cmd_perte_Click() txt_perte.Text = val(txt_reel.Text) - val(txt_totalusagers.Text) End Sub

---

Citation:

---

Envoyé par m_didi

Private Sub cmd_totalrepas_Click()
txt_totalrepas.Text = txt_total.Text * 6
End Sub

---

aussi

Code:

---

1 2 3 4

Private Sub cmd_totalrepas_Click() txt_totalrepas.Text = val(txt_total.Text) * 6 End Sub

---

Citation:

---

Envoyé par m_didi

Private Sub cmd_totalusagers_Click()
txt_totalusagers.Text = txt_profsbas.Text * 3.22 + Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + Txt_personnesexterieures.Text * 4.55
End Sub

---

encore

Code:

---

1 2 3 4

Private Sub cmd_totalusagers_Click() txt_totalusagers.Text = val(txt_profsbas.Text) * 3.22 + val(Txt_profshaut.Text) * 4.3 + val(txt_internesDP.Text) * 2.25 + val(Txt_agents.Text) * 2.8 + val(Txt_etudiants.Text) * 4.1 + val(Txt_personnesexterieures.Text) * 4.55 End Sub

---

Citation:

---

Envoyé par m_didi

Private Sub Form_Load()
numfic = FreeFile 'dossier libre créé
Open "txt_affichage.text" For Random As #numfic
Timer1.Enabled = True
Timer1.Interval = 1 'l'interval est le nbre de millisecondes au bout duquel l'évènement timer.timer a lieu
End Sub

---

ou est que tu fermes le fichier ?? et pourquoi tu l'ouvre si tu n'y mets rien a l'interieur ??

Citation:

---

Envoyé par m_didi

If txt_coutautres.Text = "," Then
MsgBox " Veuillez insérer des points et non des virgules!"
End If

---

ne te sert a rien car ne va jamais (car la possibilite est tres faible) marche met plutot

Code:

---

1 2 3

txt_coutautres.text=replace(txt_coutautres.text,",",".") 'la il le fait automatiquement.

---

dans ton code de la form Y je ne vois pas comment tu fait pour recuperer (et ou tu voudrais le faire) les infos venant de la form X.

Salut

Tout d'abord, une astuce pour t'éviter d'initialiser séquentiellement à vide chacun de tes textBox (code exemple):

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() Dim texte As Control   For Each texte In Me.Controls If TypeOf texte Is TextBox Then texte.Text = "" End If Next texte End Sub

---

Ensuite, je ne comprends pas pourquoi tu veux ouvrir en 'random access' un fichier au format Texte... On utilise généralement Random pour les fichiers binaires structurés. Utilises plutôt le FSO et le Textstream. Ou encore les bons vieux accès séquentiels. À moins que tu avais quelque part une définition de Type de donnée structurée que je n'ai pas vu...

Un conseil : évite des lignes de code trop longues. Ça incommode pour la lecture. Tu peux séparer une ligne de code ave un espace suivi d'un soulignement. Exemple

Code:

---

1 2 3 4

txt_totalusagers.Text = txt_profsbas.Text * 3.22 + _ Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + _ Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + _ Txt_personnesexterieures.Text * 4.55

---

Voilà pour mes observations. Je ne sais pas si ça t'aide beaucoup. Dis nous si ça a amélioré quelque chose.

Bon courrage.

Edit : Je vois que sovo (qui est sans doute debout depuis plus longtemps que moi) a été plus rapide et plus exhaustif que moi dans sa réponse.

merci sovo pour avoir corriger mon code. Tu sais je suis vraiment une débutante.
Pour ce qui du fichier pour enregistrer les ifnos, j'avais marqué au début dans le cmd_ouvrir de la deuxième ce code:

Code:

---

1 2 3 4 5 6 7

Dim numfic As Integer numfic = FreeFile Source = f_ticketrepas chemin = "txt_affichage.text" Open chemin For Output As #numfic Print #numfic, Source Close #numfic

---

voilà
merci aussi à toi z'araignée ça m'aidé

Citation:

---

Envoyé par m_didi

Dim numfic As Integer
numfic = FreeFile
Source = f_ticketrepas
chemin = "txt_affichage.text"
Open chemin For Output As #numfic
Print #numfic, Source
Close #numfic

---

quelque question :

c'est quoi "f_ticktrepas" ?? si c'est un form alors mauvais, si c'est un textbox (et j'en doute) alors d'ou viennent ces donnees je ne les vois pas dans ton code.

je croyais que tu voulais utiliser des donnees dans une form venant d'une autres ?? mais jusqu'ici je ne vois pas comment tu le fait , ou alors c'est la tout ton probleme ??

oui f_ticketrepas c'est le nom de la première feuille en question
et oui je n'arrive pas à enregistrer les infos de cette feuille dans la seconde feuille du projet
donc comme tu l'as dit implicitement je suis dans la m****.
enfin, pour ton aide

bon la c plus clair.

connaisant les champs qui sont dans cette form (dans le code plus haut) dit moi ceux que tu veux envoyer dans le fichier (txt_affichage).

Citation:

---

Envoyé par sovo

txt_coutautres.text=replace(txt_coutautres.text,",",".")
'la il le fait automatiquement.

---

c'est bien mais si le system est configuré pour les vérgule??
a mon avis mieu laissé le system a remlassé le bon caractére de séparation, comme par example

Code:

---

1 2 3 4 5 6

function getsparateur as string dim s as string s=cstr(1/2) getsparateur =left(s,2,1) end function

---

Citation:

---

Envoyé par m_didi

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

---

mieux ne pas donner à un timer un interval<50 surtout pour afficher le temps car c'est pas d'urgence

le probleme c'est pk laisser l'ordi le faire et si le systeme n'est pas celui voulu ?? autant le faire sois meme et etre sur de son resultat.

Citation:

---

Envoyé par sovo

le probleme c'est pk laisser l'ordi le faire et si le systeme n'est pas celui voulu ?? autant le faire sois meme et etre sur de son resultat.

---

changer dans le system le sépateur en ',' et execute ton prog te voir la différence;)

merci les amis mais j'y suis enfin arrivé
J'ai fait un listbox qui permet d'afficher la date et l'heure de la f_ticketrepas dans la seconde feuille du projet, un label et le tour est jouer maintenant sa marche.
En tout cas, merci pour vos conseils car ils me permettent de m'améliorer un petit peu. Eh oui, les débutants ont tellement à apprendre . enfin, bref, je vous dit tout de même merci et continuez à nous aidez nous les débutants :)

n'oubli pas le tag [RESOLU], tu dit avoir trouver la solution a ton probleme.

ok merci sovo