Récupérer valeurs Texbox
Résolu
wapit
Messages postés
26
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
2 juin 2005 à 12:23
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 2 juin 2005 à 13:28
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 2 juin 2005 à 13:28
9 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
2 juin 2005 à 13:21
2 juin 2005 à 13:21
Re,
Tu peux l'écrire aussi comme ceci
Private Sub CommandButton1_Click()
Dim txt1, txt2, txt3
txt1 = TextBox1
txt2 = TextBox2
txt3 = TextBox3
Open "C:\TonFichier.txt" For Append As #1
Print #1, txt1; vbCrLf; txt2; vbCrLf; txt3
Close #1
End Sub
jpleroisse
Tu peux l'écrire aussi comme ceci
Private Sub CommandButton1_Click()
Dim txt1, txt2, txt3
txt1 = TextBox1
txt2 = TextBox2
txt3 = TextBox3
Open "C:\TonFichier.txt" For Append As #1
Print #1, txt1; vbCrLf; txt2; vbCrLf; txt3
Close #1
End Sub
jpleroisse
cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
2 juin 2005 à 12:28
2 juin 2005 à 12:28
Salut,
Les valeurs saisies dans les TextBox :
dim s as string
s = TextBox1.Text
@+
Les valeurs saisies dans les TextBox :
dim s as string
s = TextBox1.Text
@+
wapit
Messages postés
26
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
25 juillet 2005
2 juin 2005 à 12:30
2 juin 2005 à 12:30
Merci bcp!
wapit
Messages postés
26
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
25 juillet 2005
2 juin 2005 à 12:35
2 juin 2005 à 12:35
Si je veux récupérer ces valeurs et les écrirent dans un fichier au moment où l'utilisateur valide sa saisie en cliquant sur un bouton?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
33
2 juin 2005 à 12:57
2 juin 2005 à 12:57
Open "c:\jeunesse99\agenda.dat" For Append As #1
Print #1, s
Close #1
end sub
voilà ca doit etre ca....
Print #1, s
Close #1
end sub
voilà ca doit etre ca....
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
33
2 juin 2005 à 12:58
2 juin 2005 à 12:58
avec c:\jeunesse99\agenda.dat le chemein de ton fichier txt
juju740
Messages postés
10
Date d'inscription
mercredi 26 mars 2003
Statut
Membre
Dernière intervention
3 juin 2005
2 juin 2005 à 13:08
2 juin 2005 à 13:08
Private Sub Command1_Click()
'ON UTILISE APPEND POUR ECRIRE LE TEXTE A LA SUITE
'
'OUVRIR FICHIER + ECRIRE
Open "c:\mon_fichier.txt" For Append As #1
Print #1, Text1.Text
Close #1
'EFFACER ZONE DE SAISIE
Text1.Text = ""
End Sub
'ON UTILISE APPEND POUR ECRIRE LE TEXTE A LA SUITE
'
'OUVRIR FICHIER + ECRIRE
Open "c:\mon_fichier.txt" For Append As #1
Print #1, Text1.Text
Close #1
'EFFACER ZONE DE SAISIE
Text1.Text = ""
End Sub
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
2 juin 2005 à 13:15
2 juin 2005 à 13:15
Bonjour,
Si ton fichier n'existe pas et que tu veux le créer, remplace Append par Output.
Private Sub Command1_Click()
Dim txt1, txt2, txt3
txt1 = Text1
txt2 = Text2
txt3 = Text3
Open "C:\TonFichier.txt" For Append As #1
Print #1, txt1
Print #1, txt2
Print #1, txt3
Close #1
End Sub
jpleroisse
Si ton fichier n'existe pas et que tu veux le créer, remplace Append par Output.
Private Sub Command1_Click()
Dim txt1, txt2, txt3
txt1 = Text1
txt2 = Text2
txt3 = Text3
Open "C:\TonFichier.txt" For Append As #1
Print #1, txt1
Print #1, txt2
Print #1, txt3
Close #1
End Sub
jpleroisse
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
2 juin 2005 à 13:28
2 juin 2005 à 13:28
Set FSys = CreateObject("Scripting.FileSystemObject") ' Création du Fichier
Set MonFic = FSys.CreateTextFile(App.Path & "" & "MonFichier.txt")
MonFic.WriteLine txt3.text 'Ecriture d'une Ligne
MonFic.WriteLine txt2.text 'Ecriture d'une Ligne
MonFic.Close ' Fermeture du Fichier
It@li@
Set MonFic = FSys.CreateTextFile(App.Path & "" & "MonFichier.txt")
MonFic.WriteLine txt3.text 'Ecriture d'une Ligne
MonFic.WriteLine txt2.text 'Ecriture d'une Ligne
MonFic.Close ' Fermeture du Fichier
It@li@
