Discussion :

[hay2006]

salut à tous le monde j'ai un probleme assez dur à faire...
j'ai creer une form avec une matrice de textbox groupés verticalement pour faire certains calculs...
je voudrais apres avoir terminé mon travail enregistrer mon travail en un fichier d'extension quelconque pour le revoir apres alors comment faire?
nottament le fichier doit contenir la feuille "form" avec tous les donnees ecrits dans les textbox et le programme doit comprendre les donnes ecrites dans le fichier et merci d'avance...

[méphistopheles]

Ton titre est mauvais, tu dois le modifier si tu veux qu'on te réponde.
je t'enjoins à lire les regles du forum pour agir en conséquence.

sinon, pour la matrice, un ini n'est à mon avis pas la meileuire solution. un codage binaire serais à mon avis préférable.


salut

[Catbull]

salut à tous le monde j'ai un probleme assez dur à faire...
j'ai creer une form avec une matrice de textbox groupés verticalement pour faire certains calculs...
je voudrais apres avoir terminé mon travail enregistrer mon travail en un fichier d'extension quelconque pour le revoir apres alors comment faire?
nottament le fichier doit contenir la feuille "form" avec tous les donnees ecrits dans les textbox et le programme doit comprendre les donnes ecrites dans le fichier et merci d'avance...

J'apprécie grandement la justesse de la description de ton problème : assez dur. Le assez qualifie avec finesse ton problème. J'espère que tu trouveras une solution assez simple

Parcours la collection Controls associée à ton formulaire, teste le type de controles avec la fonction TypeName. Enregistre ce controle dans un fichier texte. Une structure de type csv suffit : NomChamp;valeur ... et le tour est joué.

Voici un petit exemple. Tu pourras l'adapter :

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
21
22
23
24
25
26
27
Private Sub Command1_Click()
    EnregistrerFormulaire Me
End Sub
 
Public Sub EnregistrerFormulaire(F As Form)
    'Cocher la référence MicrosoftScripting Runtime
    'afin d'utiliser l'objet FileSystemObject
 
    Dim C As Control
    Dim fs As New FileSystemObject
    Dim ts As TextStream
 
    Set ts = fs.CreateTextFile(App.Path & "\sauvegarde.txt")
 
    For Each C In F.Controls
        If TypeName(C) = "TextBox" Then Enregistrer C, ts
    Next C
 
    ts.Close
    Set ts = Nothing
End Sub
 
Private Sub Enregistrer(C As Control, ts As TextStream)
    'Fonction à décorer selon son humeur
 
    ts.WriteLine C.Name & ";" & C.Text
End Sub

Il te restera à écrire la fonction permettant de récupérer les données à l'ouverture de ton formulaire. Mais ceci est un problème assez dur...