Enregistrer les donnees saisies par l'utilisateur dans une textbox [Résolu]
A voir également:
- Vba crlf
- Crlf vba - Meilleures réponses
- Données saisies - Meilleures réponses
- 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)
- Enregistrer les données d'un formulaire dans une base mysql ✓ - Forum - PHP
- Script Formulaire d'insertion et de recherche PHP MYSQL - Forum - PHP
- 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)
7 réponses
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- 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
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- 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.
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
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- 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
bonsoir,
merci encore pour la rapidite la je pense que ca devrait marcher,mais j'ai encore une question concernant
Private Sub cmdLireEnreg_Click() (dans form load)
il ne faut pas que j'ajoute un bouton ?
merci pour tout!
merci encore pour la rapidite la je pense que ca devrait marcher,mais j'ai encore une question concernant
Private Sub cmdLireEnreg_Click() (dans form load)
il ne faut pas que j'ajoute un bouton ?
merci pour tout!
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
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