Enregistrer les donnees saisies par l'utilisateur dans une textbox [Résolu]
Doro81079
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Dernière intervention
- 24 février 2015
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Dernière intervention
- 24 février 2015
A voir également:
- Vb6 crlf
- Base de données v2 sans access,utilisable sous exel, cryptage des données, tri, enregistrement/charg - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Méthode d'enregistrement de donnée dans un fichier - Codes sources - Visual Basic / VB.NET (API)
- Extrayez, modifiez et enregistrez des données dans un document xml - Codes sources - ASP / ASP.NET (XML)
- Java : Connection d'une servlet avec une base de données mysql et l'utilisation des expressi - Guide
- Enregistrer une nouvelle saisie dans un combobox. - Codes sources - Visual Basic / VB.NET (Modules)
7 réponses
Meilleure réponse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Dernière intervention
- 11 mars 2006
Bonjour,
Tu me parles de Form Load, tu es en vb6 ??, parceque en VBA sous Excel,
ce code fonctionne.En VB6, tu dois remplacer TextBox1 par Text1 ou le
nom que tu as donnés à tes TextBox.
J'ai essayé les deux et cele fonctionne.
Private Sub UserForm_Initialize()
Dim crlf, tout, tout1, tout2, texte, texte1, texte2
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = texte
tout1 = texte1
tout2 = texte2
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = tout + crlf + texte
tout1 = tout1 + crlf + texte1
tout2 = tout2 + crlf + texte2
Wend
End If
TextBox1.Text = tout
TextBox2.Text = tout1
TextBox3.Text = tout2
Close #1
End Sub
'J'ai un peu raccourci le code
jpleroisse
Tu me parles de Form Load, tu es en vb6 ??, parceque en VBA sous Excel,
ce code fonctionne.En VB6, tu dois remplacer TextBox1 par Text1 ou le
nom que tu as donnés à tes TextBox.
J'ai essayé les deux et cele fonctionne.
Private Sub UserForm_Initialize()
Dim crlf, tout, tout1, tout2, texte, texte1, texte2
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = texte
tout1 = texte1
tout2 = texte2
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = tout + crlf + texte
tout1 = tout1 + crlf + texte1
tout2 = tout2 + crlf + texte2
Wend
End If
TextBox1.Text = tout
TextBox2.Text = tout1
TextBox3.Text = tout2
Close #1
End Sub
'J'ai un peu raccourci le code
jpleroisse
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Dernière intervention
- 11 mars 2006
Bonjour,
Pour enregistrer les valeur entrées dans un TextBox.
Private Sub cmdEnregistrer_Click()
Dim texte
texte = Text1.Text
Open "C:\TonFichier.txt" For Output As #1
Print #1, texte
Close #1
Pour lire ensuite les données enregistrées.
Pour lire au lancement de la Form, tu places le code dans Form_Load
Private Sub cmdLireEnreg_Click()
Dim crlf, tout, texte
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
ps: si la réponse te convient clique sur réponse acceptée.
Pour enregistrer les valeur entrées dans un TextBox.
Private Sub cmdEnregistrer_Click()
Dim texte
texte = Text1.Text
Open "C:\TonFichier.txt" For Output As #1
Print #1, texte
Close #1
Pour lire ensuite les données enregistrées.
Pour lire au lancement de la Form, tu places le code dans Form_Load
Private Sub cmdLireEnreg_Click()
Dim crlf, tout, texte
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
ps: si la réponse te convient clique sur réponse acceptée.
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Dernière intervention
- 24 février 2015
bonjour,
merci beaucoup pour la reponse et pour la rapidite ,mais j'ai deja essayer avec ce code ca marche que lorsque je me sert d'une textbox comme d'une feuille word mais pas dans le cas de plusieurs textbox et d'ailleurs je ne comprend pas pourquoi . En fait sur ma form j'ai 4 colonne formees de textbox:
la premiere contient les designations (.text indique dans form load)
les 2eme ,3eme et 4eme sont des textbox a remplir par l'utilisateur (chiffres)
et lorsque j'appuie sur calculer il m'inscrit les resultats dans les labels , c'est une feuille de compte.
j'ai egalement essayer avec
print #filenum,txt1.text
print #filenum text2.text etc mais je ne sais pas pourquoi il m'ouvre toujours la feuille de depart alors je me dit que j'ai du me tromper mais tout les sites que j'ai consulter me donne le meme code .
Merci beaucoup et si vous savez d'ou peut venir ce probleme je vous remercie d'avance pour la reponse
merci beaucoup pour la reponse et pour la rapidite ,mais j'ai deja essayer avec ce code ca marche que lorsque je me sert d'une textbox comme d'une feuille word mais pas dans le cas de plusieurs textbox et d'ailleurs je ne comprend pas pourquoi . En fait sur ma form j'ai 4 colonne formees de textbox:
la premiere contient les designations (.text indique dans form load)
les 2eme ,3eme et 4eme sont des textbox a remplir par l'utilisateur (chiffres)
et lorsque j'appuie sur calculer il m'inscrit les resultats dans les labels , c'est une feuille de compte.
j'ai egalement essayer avec
print #filenum,txt1.text
print #filenum text2.text etc mais je ne sais pas pourquoi il m'ouvre toujours la feuille de depart alors je me dit que j'ai du me tromper mais tout les sites que j'ai consulter me donne le meme code .
Merci beaucoup et si vous savez d'ou peut venir ce probleme je vous remercie d'avance pour la reponse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Dernière intervention
- 11 mars 2006
Bonsoir,
Private Sub cmdEnregistrer_Click()
Dim texte, texte1, texte2
texte = Text1.Text
texte1 = Text2.Text
texte2 = Text3.Text
Open "C:\TonFichier.txt" For Output As #1
Print #1, texte
Print #1, texte1
Print #1, texte2
Close #1
End Sub
Private Sub cmdLireEnreg_Click()
Dim crlf, tout, tout1, tout2, texte, texte1, texte2
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = texte
tout1 = texte1
tout2 = texte2
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
If Len(tout1) <> 0 Then
While Not EOF(1)
Line Input #1, texte1
tout1 = tout1 + crlf + texte1
Wend
If Len(tout2) <> 0 Then
While Not EOF(1)
Line Input #1, texte2
tout2 = tout2 + crlf + texte2
Wend
End If
End If
End If
Text1.Text = tout
Text2.Text = tout1
Text3.Text = tout2
Close #1
End Sub
jpleroisse
Private Sub cmdEnregistrer_Click()
Dim texte, texte1, texte2
texte = Text1.Text
texte1 = Text2.Text
texte2 = Text3.Text
Open "C:\TonFichier.txt" For Output As #1
Print #1, texte
Print #1, texte1
Print #1, texte2
Close #1
End Sub
Private Sub cmdLireEnreg_Click()
Dim crlf, tout, tout1, tout2, texte, texte1, texte2
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
Line Input #1, texte1
Line Input #1, texte2
tout = texte
tout1 = texte1
tout2 = texte2
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
If Len(tout1) <> 0 Then
While Not EOF(1)
Line Input #1, texte1
tout1 = tout1 + crlf + texte1
Wend
If Len(tout2) <> 0 Then
While Not EOF(1)
Line Input #1, texte2
tout2 = tout2 + crlf + texte2
Wend
End If
End If
End If
Text1.Text = tout
Text2.Text = tout1
Text3.Text = tout2
Close #1
End Sub
jpleroisse
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Dernière intervention
- 24 février 2015
rebonsoir jpleroisse
je viens d'essayer le code et malheureusement ca ne fonctionne pas quand j'ouvre la form avec mon app. elle n'inscrit pas les valeurs enregistrer mais par contre quand j'ouvre le fichier avec vb il inscrit les donnees sans interfaces dans un module donc les donnees sont bien enregistrees mais n'apparaissent pas en ouvrant le fichier avec son app. bref j'y comprends rien alors si vous avez une idee merci d'avance et desolee pour le derangement
doro
je viens d'essayer le code et malheureusement ca ne fonctionne pas quand j'ouvre la form avec mon app. elle n'inscrit pas les valeurs enregistrer mais par contre quand j'ouvre le fichier avec vb il inscrit les donnees sans interfaces dans un module donc les donnees sont bien enregistrees mais n'apparaissent pas en ouvrant le fichier avec son app. bref j'y comprends rien alors si vous avez une idee merci d'avance et desolee pour le derangement
doro
- Messages postés
- 398
- Date d'inscription
- vendredi 22 avril 2005
- Dernière intervention
- 24 février 2015
bonjour,
c'est bon grace a vous j'ai reussi a contourner le probleme, comme vous m'avez parler de vba sous excel j'ai fait un petit tour par la, ce qui m'a permis de comprendre que si je voulais faire apparaitre les donnees enregistrees il fallait que je cree un bouton ouvrir avec le meme code que dans userform, de cette facon lorsque j'inscrit des donnees je les sauvegarde avec le sous menu enr. et quand je ferme puis ouvre de nouveau l'application je recupere mes donnees avec le sous menu ouv. ce n'etait pas ce a quoi je penser au depart mais c'est une bonne solution tres bonne meme .
je vous remercie beaucoup pour l'aide que vous m'avez apporter! je vais pouvoir continuer merci encore
doro
c'est bon grace a vous j'ai reussi a contourner le probleme, comme vous m'avez parler de vba sous excel j'ai fait un petit tour par la, ce qui m'a permis de comprendre que si je voulais faire apparaitre les donnees enregistrees il fallait que je cree un bouton ouvrir avec le meme code que dans userform, de cette facon lorsque j'inscrit des donnees je les sauvegarde avec le sous menu enr. et quand je ferme puis ouvre de nouveau l'application je recupere mes donnees avec le sous menu ouv. ce n'etait pas ce a quoi je penser au depart mais c'est une bonne solution tres bonne meme .
je vous remercie beaucoup pour l'aide que vous m'avez apporter! je vais pouvoir continuer merci encore
doro
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.