Discussion :

[lulux80]

J'ai ça comme form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
txtbox : txtclt
txtbox : réf
deux listbox : nom_p et tot
txtbox : Ttot 'la somme de tot
bouton : cmdresuss 'j'apuies desus Ttot s'affiche
txtbox : Nbens 'je saisi une valeur
txtbox : Tens 'la multiplication de Ttot * nbens
bouton : cmdresuas 'j'apuies desus Tens s'affiche
un bouton sauvegarde

nom_p et tot peut avoir plusieur items...
Alors voilà, je voudrai quand j'appuies sur sauvegarde ça me crée un fichier texte avec tous les éléments ci desus...quelqu'un pourai me dire cmen fair?

[ullgom]

Pour écrire dans un fichier texte tu peux utiliser la méthode suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim oFSO As Scripting.FileSystemObject
Dim oTxt_Sortie As Scripting.TextStream
Dim Ma_Ligne As String
Dim Fichier as string
 
Fichier = "c:\1.txt"
Ma_ligne = "Ma ligne de test 1"
Ma_ligne2 = "Ma ligne de test 2"
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Ouvre le fichier le cré si il n'existe pas (ouvert en mode unicode)
Set oTxt_Sortie = oFSO.OpenTextFile(Fichier, ForWriting, True, TristateTrue)
 
'Ajoute la ligne dans le fichier
oTxt_Sortie.WriteLine (Ma_Ligne)
oTxt_Sortie.WriteLine (Ma_Ligne2)
 
oTxt_Sortie.Close

[AdHoc]

bonjour,
il faut aller voir les tutos

[zazaraignée]

Salut lulux

Un fichier .frm est esseciellement du texte. si tu veux voir ce qu'il contient en totalité, tu n'as qu'à l'ouvrir (en lecture seule) dans un éditeur de texte.

Voici un aperçu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
End    ' fin du code pour les objets et leurs propriétés
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False  ' fin du code de définition de la Form
Option Explicit  ' début du code tel qu'on le voit dans l'éditeur VB.
 
Private Sub Combo1_Click()
    ' Select Column according to Sort method.
    Select Case Combo1.ListIndex
      Case 0 To 2
        MSHFlexGrid1.Col = 1
      Case 3 To 4
        MSHFlexGrid1.Col = 2

Comme tu le devines bien, j'en ai mis juste un p'tit bout.

[Najdar]

Vu la diversité des réponses, je pense que tu devrais expliquer ton problème un peu mieux.

[lulux80]

Expliquer mieux ma question lol

Ma question est comment doit-on procéder, une fois avoir fini avec mon form3
de pouvoir le sauvegarder dans un fichier texte :

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
txtbox : txtclt = "TOTO"
txtbox : réf = "5487"
deux listbox : nom_p et tot = 
                                         "HEA             | 125"
                                         "Tôle            |   75"         
 
bouton : cmdresuss 'j'apuies desus Ttot s'affiche
 
txtbox : Ttot 'la somme de tot = "200"
 
txtbox : Nbens 'je saisi une valeur = "2"
 
bouton : cmdresuas 'j'apuies desus Tens s'affiche
 
txtbox : Tens 'la multiplication de Ttot * nbens = "400"
 
un bouton sauvegarde

Et lorsque j'apuies sur sauvegarde, y'a un msg box qui me demande de l'enregistrer et sous quelle nom ???

le fichier texte doi êtr à pe prè :
nom du client : _____________
ref : _____________
les pièce et tot : _____________
le prix sans ensemble : _____________
Le nombre d'ensemble : _____________
TOTAL : _____________

[Najdar]

Qu'elles sont les données que veux-tu sauvegarder exactement ?

Quel est ton problème :
"Comment écrire ces données dans un fichier ?" ou
"Comment afficher une boite de dialogue standard pour saisir le nom du fichier ?"

[AlainTech]

Pour déterminer ce qui provoque l'erreur, il faut y aller pas à pas:
Créer une Sub dans laquelle on ajoute une ligne à la fois et on essaye de faire tourner.

La dernière ligne ajoutée avant que l'erreur n'apparaisse est la ligne incriminée.

Visiblement, il n'y a personne, ici, qui connaisse eVB. On essaye donc de t'aider avec des réponses générales.

Si j'en ai l'occasion, j'essayerai de trouver ce programme pour voir comment il se comporte mais, actuellement, on ne peut t'aider qu'avec de la logique mais jamais avec des réponses sures.