Enregistrer_Texte

Uehara Futoshi Messages postés 459 Date d'inscription   Statut Membre Dernière intervention   -  
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je travail sur une application de cahier de charges.
Comment garder du texte entré par l'utilisateur à chaque ouverture de l'application?

Par exemple, Je saisi dans le champ texte:
Nom_Client: Paul

Le mot "Paul" doit être enregistré à chaque ouverture de l'application.

Merci d'avance.

6 réponses

Réponse 1 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour Uehara Futoshi,

Tout dépend du VB ..

VB Excel ?
Il suffit de placer la ou les valeurs dans des cellules, même dans un onglet caché à l'utilisateur .. lire les cellules pour récupérer les données.

VB 6.0 ou VB.Net ?
Il suffit de l'écrire dans un fichier texte .. lire le fichier pour récupérer les données.
0
Uehara Futoshi Messages postés 459 Date d'inscription   Statut Membre Dernière intervention   8
 
Bonjour Heliotte,

Je viens juste de commencer une auto-formation en VB 6.0.
En fait, je souhaite que chaque ajout de texte soit enregistré à chaque ouverture de l'application.

Exemple:
J'exécute l'application, je rempli le Champ Texte par "Premier jour: Faire les cours". J'enregistre ce texte en cliquant sur le bouton Enregistrer. Je ferme l'application.

But recherché: J'exécute l'application de nouveau. Le texte "Premier jour: Faire les cours" est toujours enregistré. (Comme dans un agenda papier ou un Post It).

J'ai pas bien compris le fait de l'écrire dans un fichier texte...Notepad par exemple? Faut-il l'intégrer après?
0
Réponse 2 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour Uehara Futoshi,

Si vous utilisez NotePad ou un autre programme, ce ne sera pas en VB 6.0 !!

Voici une procédure qui écrit un texte (chaîne de caractère passé en paramètre: 

Private Sub EcrireTexte(ByRef Texte As String)
    Dim NoFichier As Integer
    '
    NoFichier = FreeFile
    Open ActiveWorkbook.Path & "\Resultats.txt" For Output As NoFichier
        Print #NoFichier, Texte 
    Close NoFichier
End Sub

Attention, avec For Output , vous écrasez le fichier à chaque appel.
Si vous voulez ajouter du texte au fichier, alors il faut remplacer pa For Append

Si, comme je le pense, vous afficher l'intégralité du fichier avant de lui ajouter de texte, il faut toujours utiliser For Output
0
Réponse 3 / 6
Uehara Futoshi Messages postés 459 Date d'inscription   Statut Membre Dernière intervention   8
 
Bonjour Heliotte et merci de votre aide,

J'ai bien entré le code en double cliquant sur Enregistrer l'état:
http://image.noelshack.com/fichiers/2013/02/1357816420-nouveau-image-bitmap-2.png

Mais quand j'exécute l'application, ça me renvoi l'erreur suivante:
http://image.noelshack.com/fichiers/2013/02/1357817003-exe.png
0
Réponse 4 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour,

Voici comment procéder:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Private Sub Command1_Click()
    EcrireTexte(TextBox???.Text)
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub EcrireTexte(ByRef Texte As String)
    Dim NoFichier As Integer
    '
    NoFichier = FreeFile
    Open ActiveWorkbook.Path & "\Resultats.txt" For Output As NoFichier
        Print #NoFichier, Texte 
    Close NoFichier
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Fonctionnement:

En cliquant sur le bouton Enregistrer l'état, la procédure Private Sub Command1_Click prend le contrôle pour exécuter son code. Une fois son code exécuté, elle redonne la main ..

Le cette procédure, fait appel à une autre procédure : Private Sub EcrireTexte(ByRef Texte As String), qui, de son côté, écrit dans un fichier texte. Puis, elle redonne la main à la procédure appelante.

Attention, veillez à remplacer TextBox???.Text par le vrai nom du TextBox, suivi de .Text dans l'appel de procédure : EcrireTexte(TextBox???.Text)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Uehara Futoshi Messages postés 459 Date d'inscription   Statut Membre Dernière intervention   8
 
Bonjour Heliotte,

J'ai entré le code telle quelle: http://image.noelshack.com/fichiers/2013/03/1358432975-1.png

et quand je clique sur Enregistrer, j'ai l'erreur d'exécution suivante suivante: http://image.noelshack.com/fichiers/2013/03/1358433099-1.png
0
Réponse 6 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour Uehara Futoshi,

Pour y voir plus clair, il serait intéressant de voir le classeur.
Comme vous n'êtes pas pressé, vous pouvez le déposer sur un site de stockage, tel que www.cjoint.com ,
Dans votre prochain message, vous écrivez le lien du fichier,

Dès que j'ai un moment, j'y jetterai un coup d'oeil.
0