Comment sauvegarder mes textbox vers un fichier Csv [Résolu]

bug01300 6 Messages postés samedi 23 mai 2009Date d'inscription 14 août 2009 Dernière intervention - 3 août 2009 à 07:39 - Dernière réponse : KIPRE74 121 Messages postés jeudi 15 mai 2008Date d'inscription 21 novembre 2013 Dernière intervention
- 14 août 2009 à 22:26
Bonjour,

Comment faire pour enregistrer mes textbox vers fichier Csv.
Puis lirele fichier Csv est de le charger dans un treeview

Merci par avance
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
KIPRE74 121 Messages postés jeudi 15 mai 2008Date d'inscription 21 novembre 2013 Dernière intervention - 3 août 2009 à 13:46
3
Merci
Voilà pour ce qui est de l'enregistrement en CSV


Private Function Enregistrer(ByVal wFichier As String) As Boolean

Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try

Try
wFile.Write(TextBox1.Text)
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function

Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean

Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean

wSaveFileDialog.FileName = pFichierEnCours

wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"


If wSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

If Enregistrer(wSaveFileDialog.FileName) Then

wFlag = True

pFichierEnCours = wSaveFileDialog.FileName

End If
End If
wSaveFileDialog.Dispose()

Return wFlag
End Function


'Bouton d'enregistrement
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)

End If
End Sub

Merci KIPRE74 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de KIPRE74
Meilleure réponse
KIPRE74 121 Messages postés jeudi 15 mai 2008Date d'inscription 21 novembre 2013 Dernière intervention - 5 août 2009 à 21:19
3
Merci
Salut, j'ai pas bien saisi ta préoccupation !

Merci KIPRE74 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de KIPRE74
Meilleure réponse
sergeszebe 188 Messages postés mardi 15 novembre 2005Date d'inscription 8 octobre 2009 Dernière intervention - 12 août 2009 à 09:32
3
Merci
salut c'est quoi un CSV?
moi j'aimerai recuperer les données(texbox d'un formulaire et envoyer )le tout comme email a l'adresse perso solicité.
apres enregistrement dans la base.
l'enregistrement dans la base se pase bien.


Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.

Merci sergeszebe 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de sergeszebe
Meilleure réponse
KIPRE74 121 Messages postés jeudi 15 mai 2008Date d'inscription 21 novembre 2013 Dernière intervention - 14 août 2009 à 22:26
3
Merci
Salut,
c'est du vb.net et ça marche très bien

Merci KIPRE74 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de KIPRE74
bug01300 6 Messages postés samedi 23 mai 2009Date d'inscription 14 août 2009 Dernière intervention - 5 août 2009 à 19:12
0
Merci
Un grand merci à toi KIPRE74 !
Cela marche nikel !
Comment continuer à enregistrer sans supprimer la première ligne.

Peux tu m'aider?

Merci
Commenter la réponse de bug01300
bug01300 6 Messages postés samedi 23 mai 2009Date d'inscription 14 août 2009 Dernière intervention - 11 août 2009 à 17:35
0
Merci
Salut,
On en reparle apres les vacances

Merci en tout cas
Commenter la réponse de bug01300
bug01300 6 Messages postés samedi 23 mai 2009Date d'inscription 14 août 2009 Dernière intervention - 14 août 2009 à 12:22
0
Merci
Bonjour SERGESZEBE,

1)Un fichier CSV est un fichier tableur,
contenant des données sur chaque ligne séparés par un caractère de séparation
(généralement une virgule ou un point-virgule).
*****
2)Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try

Try
wFile.Write(TitreTextBox.Text + "," + LoginTextBox.Text + "," + PasswordTextBox.Text)'toutes tes textbox
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function''

Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean

Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = System.Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function

Private Sub tonbouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tonbouton.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub

Un grand merci à toi KIPRE74 pour le code



Je ne suis que debutant


a+
Commenter la réponse de bug01300
sergeszebe 188 Messages postés mardi 15 novembre 2005Date d'inscription 8 octobre 2009 Dernière intervention - 14 août 2009 à 16:36
0
Merci
Merci exécllent debuatant sauf que je suis en vb.net
et a mon avis ce code est pour vb6 ou vba non?
parceque Msgbox en vbnet c'est pas une petite affaire!
eux je sais pas si je voit mal mais ça ne marche pas



Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.
Commenter la réponse de sergeszebe

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.