Enregistrer le contenu d'une textbox dans un fichier

5/5 (9 avis)

Snippet vu 17 961 fois - Téléchargée 83 fois

Contenu du snippet

Soit une feuille (Form1) contenant une TextBox (Text1) et un bouton (Sauver).
On enregistre le contenu de "Text1" dans le fichier text.txt de la façon suivante :

Source / Exemple :


'Affecter ce code au bouton "Sauver"

Private Sub Sauver_Click()
  Dim vari As Integer
  vari = FreeFile
  contenu = Form1.Text1.Text
' adresse du fichier a enregistrer 
  chemin = "c:\...\text.txt"
'ouverture du fichier
  Open chemin For Output As #vari
' enregistrement du texte
  Print #vari, contenu
'Fermeture du fichier
  Close vari
End sub

A voir également

Ajouter un commentaire Commentaires
jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 1
2 nov. 2008 à 08:33
merci pour le code c'est simple est facile pour un débutant
achills Messages postés 213 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 20 août 2008
24 juin 2008 à 12:37
changer : Open chemin For Output As #vari par ===> Open chemin For append As #vari
sa ajoute et ne suprrime pas

cordialement
cs_RedDevil Messages postés 4 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 3 août 2004
27 juil. 2004 à 14:53
c'est bien gentil niconet16 mais c'est pas du VB alors comment intégrer un tel code ???
niconet16 Messages postés 15 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 24 janvier 2005
13 avril 2004 à 23:30
Voici la solution:

http://www.cppfrance.com/code.aspx?ID=10521

Merci quand même!
niconet16 Messages postés 15 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 24 janvier 2005
13 avril 2004 à 23:27
Comment faire pour ajouter du texte à la fin du fichier car ce code efface ce qu'il y dedans avant d'écrire.

Merci bcp!
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.