J'ai 3 textbox dans les quels je rentre des nombres, 1 =20
bouton commande pour sauver les variables textes puis un=20
bouton commande pour r=E9cup=E9rer les donn=E9es, et tout =E7a=20
par l'interm=E9diaire d'un fichier text.
L=E0 j'arrive apr=E8s diverses discussions =E0 enregistrer les=20
3 valeurs text et =E0 les lire dans mon=20
fichier .text....Par contre impossible de les r=E9afficher=20
dans les textbox......WHY ? Si je comprends bien il doit=20
y avoir un pb entre Integer et double ! ! Si quelqu'un=20
peut me donner la bonne commande dans la derni=E8re partie=20
de ce petit programme....Merci
Option Explicit
Dim F As Integer
Dim r1 As Double
Dim r2 As Double
Dim r3 As Double
Private Sub BtSave_click()
F =3D FreeFile
Open "c:\MonFich.txt" For Binary As F
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Tof" a écrit dans le message de news:1f7e01c49d8d$1d6ba540$
J'ai 3 textbox dans les quels je rentre des nombres, 1 bouton commande pour sauver les variables textes puis un bouton commande pour récupérer les données, et tout ça par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les 3 valeurs text et à les lire dans mon fichier .text....Par contre impossible de les réafficher dans les textbox......WHY ? Si je comprends bien il doit y avoir un pb entre Integer et double ! ! Si quelqu'un peut me donner la bonne commande dans la dernière partie de ce petit programme....Merci
Private Sub BtOpen_click() F = FreeFile Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis"""" Get F, , r2 Get F, , r3 Close F End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click() Dim f as Integer
f = FreeFile Open "c:MonFich.txt" For Input As #f
Input #f, r1 Input #f, r2 Input #f, r3 Close #f Text1.Text = r1 Text2.Text = r2 Text3.Text = r3 End Sub
-- Jean-marc
"Tof" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1f7e01c49d8d$1d6ba540$a301280a@phx.gbl...
J'ai 3 textbox dans les quels je rentre des nombres, 1
bouton commande pour sauver les variables textes puis un
bouton commande pour récupérer les données, et tout ça
par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les
3 valeurs text et à les lire dans mon
fichier .text....Par contre impossible de les réafficher
dans les textbox......WHY ? Si je comprends bien il doit
y avoir un pb entre Integer et double ! ! Si quelqu'un
peut me donner la bonne commande dans la dernière partie
de ce petit programme....Merci
Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis""""
Get F, , r2
Get F, , r3
Close F
End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click()
Dim f as Integer
f = FreeFile
Open "c:MonFich.txt" For Input As #f
Input #f, r1
Input #f, r2
Input #f, r3
Close #f
Text1.Text = r1
Text2.Text = r2
Text3.Text = r3
End Sub
"Tof" a écrit dans le message de news:1f7e01c49d8d$1d6ba540$
J'ai 3 textbox dans les quels je rentre des nombres, 1 bouton commande pour sauver les variables textes puis un bouton commande pour récupérer les données, et tout ça par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les 3 valeurs text et à les lire dans mon fichier .text....Par contre impossible de les réafficher dans les textbox......WHY ? Si je comprends bien il doit y avoir un pb entre Integer et double ! ! Si quelqu'un peut me donner la bonne commande dans la dernière partie de ce petit programme....Merci
Private Sub BtOpen_click() F = FreeFile Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis"""" Get F, , r2 Get F, , r3 Close F End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click() Dim f as Integer
f = FreeFile Open "c:MonFich.txt" For Input As #f
Input #f, r1 Input #f, r2 Input #f, r3 Close #f Text1.Text = r1 Text2.Text = r2 Text3.Text = r3 End Sub
-- Jean-marc
Tof
Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
Option Explicit
Dim f As Integer
Dim D1 As Double Dim D2 As Double Dim D3 As Double
Private Sub BtSave_click() f = FreeFile Open "c:MonFich.txt" For Output As #f Print #f, , Resultat Close #f End Sub
Private Sub BtOpen_click()
f = FreeFile Open "c:MonFich.txt" For Input As #f 'Resultat = r1 Input #f, r1 Resultat = r1 Close #f End Sub
Merci en tout cas !
-----Message d'origine-----
"Tof" a écrit dans
le message de
news:1f7e01c49d8d$1d6ba540$
J'ai 3 textbox dans les quels je rentre des nombres, 1 bouton commande pour sauver les variables textes puis un bouton commande pour récupérer les données, et tout ça par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les 3 valeurs text et à les lire dans mon fichier .text....Par contre impossible de les réafficher dans les textbox......WHY ? Si je comprends bien il doit y avoir un pb entre Integer et double ! ! Si quelqu'un peut me donner la bonne commande dans la dernière partie de ce petit programme....Merci
Private Sub BtOpen_click() F = FreeFile Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis"""" Get F, , r2 Get F, , r3 Close F End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click() Dim f as Integer
f = FreeFile Open "c:MonFich.txt" For Input As #f
Input #f, r1 Input #f, r2 Input #f, r3 Close #f Text1.Text = r1 Text2.Text = r2 Text3.Text = r3 End Sub
-- Jean-marc
.
Merci pour la réponse ! !
Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une
boite dialogue pour enregistrer mon textbox avec un nom
de fichier quelquonque....C'est facile ça ? Quelle
commande cela implique ? Voici le topo ! !
Option Explicit
Dim f As Integer
Dim D1 As Double
Dim D2 As Double
Dim D3 As Double
Private Sub BtSave_click()
f = FreeFile
Open "c:MonFich.txt" For Output As #f
Print #f, , Resultat
Close #f
End Sub
Private Sub BtOpen_click()
f = FreeFile
Open "c:MonFich.txt" For Input As #f
'Resultat = r1
Input #f, r1
Resultat = r1
Close #f
End Sub
Merci en tout cas !
-----Message d'origine-----
"Tof" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:1f7e01c49d8d$1d6ba540$a301280a@phx.gbl...
J'ai 3 textbox dans les quels je rentre des nombres, 1
bouton commande pour sauver les variables textes puis un
bouton commande pour récupérer les données, et tout ça
par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les
3 valeurs text et à les lire dans mon
fichier .text....Par contre impossible de les réafficher
dans les textbox......WHY ? Si je comprends bien il doit
y avoir un pb entre Integer et double ! ! Si quelqu'un
peut me donner la bonne commande dans la dernière partie
de ce petit programme....Merci
Private Sub BtOpen_click()
F = FreeFile
Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis""""
Get F, , r2
Get F, , r3
Close F
End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click()
Dim f as Integer
f = FreeFile
Open "c:MonFich.txt" For Input As #f
Input #f, r1
Input #f, r2
Input #f, r3
Close #f
Text1.Text = r1
Text2.Text = r2
Text3.Text = r3
End Sub
Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
Option Explicit
Dim f As Integer
Dim D1 As Double Dim D2 As Double Dim D3 As Double
Private Sub BtSave_click() f = FreeFile Open "c:MonFich.txt" For Output As #f Print #f, , Resultat Close #f End Sub
Private Sub BtOpen_click()
f = FreeFile Open "c:MonFich.txt" For Input As #f 'Resultat = r1 Input #f, r1 Resultat = r1 Close #f End Sub
Merci en tout cas !
-----Message d'origine-----
"Tof" a écrit dans
le message de
news:1f7e01c49d8d$1d6ba540$
J'ai 3 textbox dans les quels je rentre des nombres, 1 bouton commande pour sauver les variables textes puis un bouton commande pour récupérer les données, et tout ça par l'intermédiaire d'un fichier text.
Là j'arrive après diverses discussions à enregistrer les 3 valeurs text et à les lire dans mon fichier .text....Par contre impossible de les réafficher dans les textbox......WHY ? Si je comprends bien il doit y avoir un pb entre Integer et double ! ! Si quelqu'un peut me donner la bonne commande dans la dernière partie de ce petit programme....Merci
Private Sub BtOpen_click() F = FreeFile Open "c:MonFich.txt" For Binary As F
Get F, , r1...."Ici il y a un soucis"""" Get F, , r2 Get F, , r3 Close F End Sub
Hello,
en supposant que r1 r2 et r3 sont bien déclarées,
Private Sub BtOpen_click() Dim f as Integer
f = FreeFile Open "c:MonFich.txt" For Input As #f
Input #f, r1 Input #f, r2 Input #f, r3 Close #f Text1.Text = r1 Text2.Text = r2 Text3.Text = r3 End Sub
-- Jean-marc
.
Jean-Marc
"Tof" a écrit dans le message de news:1fd701c49d99$1df32e50$ Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft Common Dialog Menu Projects/ COmponets, Choisir Microsoft Common Dialog Control (6.0) ou équivalent Le composant créé sur la feuille va s'appeler par défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(), faire ceci:
Private Sub BtSave_click() Dim f as Integer dim fileName as String
f = FreeFile
CommonDialog1.ShowSave fileName = CommonDialog1.FileName If filename<>"" Then Open filename For Output As #f Print #f, , Resultat Close #f Else Msgbox "Vous devez choisir un fichier",vbInformation, "" End If End Sub
Et le tour est joué :-)
-- Jean-marc
"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de
news:1fd701c49d99$1df32e50$a301280a@phx.gbl...
Merci pour la réponse ! !
Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une
boite dialogue pour enregistrer mon textbox avec un nom
de fichier quelquonque....C'est facile ça ? Quelle
commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft Common Dialog
Menu Projects/ COmponets, Choisir Microsoft Common Dialog Control (6.0) ou
équivalent
Le composant créé sur la feuille va s'appeler par défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(), faire ceci:
Private Sub BtSave_click()
Dim f as Integer
dim fileName as String
f = FreeFile
CommonDialog1.ShowSave
fileName = CommonDialog1.FileName
If filename<>"" Then
Open filename For Output As #f
Print #f, , Resultat
Close #f
Else
Msgbox "Vous devez choisir un fichier",vbInformation, ""
End If
End Sub
"Tof" a écrit dans le message de news:1fd701c49d99$1df32e50$ Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft Common Dialog Menu Projects/ COmponets, Choisir Microsoft Common Dialog Control (6.0) ou équivalent Le composant créé sur la feuille va s'appeler par défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(), faire ceci:
Private Sub BtSave_click() Dim f as Integer dim fileName as String
f = FreeFile
CommonDialog1.ShowSave fileName = CommonDialog1.FileName If filename<>"" Then Open filename For Output As #f Print #f, , Resultat Close #f Else Msgbox "Vous devez choisir un fichier",vbInformation, "" End If End Sub
Et le tour est joué :-)
-- Jean-marc
Tof
Ecoute je te remercie beaucoup, j'ai étudié ce que tu as écris, j'ai cherché à droite à gauche et j'y suis enfin arrivé.
J'en ai bien bavé aujourd'hui et je suis arrivé à ce topo.
Option Explicit
Dim Fichier As String
Dim D1 As Double Dim D2 As Double Dim D3 As Double
If Fichier <> "" Then Open Fichier For Input As #1 Input #1, D1 Saisie1 = D1 Input #1, D2 Saisie2 = D2 Input #1, D3 Saisie3 = D3
Input #1, r1 Resultat = r1
Close #1 End If End Sub Private Sub Quitter_Click() End End Sub
Encore merci !
-----Message d'origine----- "Tof" a écrit dans le message de news:1fd701c49d99$1df32e50$ Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft
Common Dialog
Menu Projects/ COmponets, Choisir Microsoft Common
Dialog Control (6.0) ou
équivalent Le composant créé sur la feuille va s'appeler par
défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(),
faire ceci:
Private Sub BtSave_click() Dim f as Integer dim fileName as String
f = FreeFile
CommonDialog1.ShowSave fileName = CommonDialog1.FileName If filename<>"" Then Open filename For Output As #f Print #f, , Resultat Close #f Else Msgbox "Vous devez choisir un
fichier",vbInformation, ""
End If End Sub
Et le tour est joué :-)
-- Jean-marc
.
Ecoute je te remercie beaucoup, j'ai étudié ce que tu as
écris, j'ai cherché à droite à gauche et j'y suis enfin
arrivé.
J'en ai bien bavé aujourd'hui et je suis arrivé à ce topo.
Option Explicit
Dim Fichier As String
Dim D1 As Double
Dim D2 As Double
Dim D3 As Double
If Fichier <> "" Then
Open Fichier For Input As #1
Input #1, D1
Saisie1 = D1
Input #1, D2
Saisie2 = D2
Input #1, D3
Saisie3 = D3
Input #1, r1
Resultat = r1
Close #1
End If
End Sub
Private Sub Quitter_Click()
End
End Sub
Encore merci !
-----Message d'origine-----
"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de
news:1fd701c49d99$1df32e50$a301280a@phx.gbl...
Merci pour la réponse ! !
Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une
boite dialogue pour enregistrer mon textbox avec un nom
de fichier quelquonque....C'est facile ça ? Quelle
commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft
Common Dialog
Menu Projects/ COmponets, Choisir Microsoft Common
Dialog Control (6.0) ou
équivalent
Le composant créé sur la feuille va s'appeler par
défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(),
faire ceci:
Private Sub BtSave_click()
Dim f as Integer
dim fileName as String
f = FreeFile
CommonDialog1.ShowSave
fileName = CommonDialog1.FileName
If filename<>"" Then
Open filename For Output As #f
Print #f, , Resultat
Close #f
Else
Msgbox "Vous devez choisir un
If Fichier <> "" Then Open Fichier For Input As #1 Input #1, D1 Saisie1 = D1 Input #1, D2 Saisie2 = D2 Input #1, D3 Saisie3 = D3
Input #1, r1 Resultat = r1
Close #1 End If End Sub Private Sub Quitter_Click() End End Sub
Encore merci !
-----Message d'origine----- "Tof" a écrit dans le message de news:1fd701c49d99$1df32e50$ Merci pour la réponse ! ! Cette fois-ci ca marche.
Et si je peux encore t'embêter.....Si je veux ouvrir une boite dialogue pour enregistrer mon textbox avec un nom de fichier quelquonque....C'est facile ça ? Quelle commande cela implique ? Voici le topo ! !
tu dois mettre sur ta feuille un composant Microsoft
Common Dialog
Menu Projects/ COmponets, Choisir Microsoft Common
Dialog Control (6.0) ou
équivalent Le composant créé sur la feuille va s'appeler par
défaut: CommonDialog1
puis dans ton code, dans la procédure BtSave_click(),
faire ceci:
Private Sub BtSave_click() Dim f as Integer dim fileName as String
f = FreeFile
CommonDialog1.ShowSave fileName = CommonDialog1.FileName If filename<>"" Then Open filename For Output As #f Print #f, , Resultat Close #f Else Msgbox "Vous devez choisir un
fichier",vbInformation, ""
End If End Sub
Et le tour est joué :-)
-- Jean-marc
.
Jean-Marc
"Tof" a écrit dans le message de news:2cc001c49db0$c5efd290$
Ecoute je te remercie beaucoup, j'ai étudié ce que tu as écris, j'ai cherché à droite à gauche et j'y suis enfin arrivé. Encore merci !
Pas de quoi!
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
"Tof" <moreauchris@wanadoo.fr> a écrit dans le message de
news:2cc001c49db0$c5efd290$a401280a@phx.gbl...
Ecoute je te remercie beaucoup, j'ai étudié ce que tu as
écris, j'ai cherché à droite à gauche et j'y suis enfin
arrivé.
Encore merci !
Pas de quoi!
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
