Discussion :

[AnneJulie]

Bonjour,

Je suis débutante et en difficulté sur un petit programme.
J'ai une interface avec plusieurs Textbox.
Je voudrai qu'une fois avoir remplir les Textbox leur contenu s'ajoute à un fichier CSV que j'utilise à d'autres moments dans mon programme en validant sur un bouton.
Chaque contenu de textbox correspond a une colonne de mon fichier CSV dans lequel je voudrai écrire les nouvelles entrées.
Il faut donc d'abord que je trouve la première ligne vide de mon tableau puis associer chaque contenu a une colonne.
Quel code dois je associer au bouton valider ?


Merci beaucoup de votre aide !

[kika10]

importer d’abord la bibliothèque

Code :

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

Imports Microsoft.Office.Interop.Excel

lancer une application excel

Code :

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

    Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass

remplir ton fichier

Code :

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

 excel.Cells(rowIndex, colIndex) = "text"

et en fin pour voir ton fichier excel

Code :

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

excel.Visible = True

[StormimOn]

Un fichier CSV c'est un bête fichier texte. Faire de l'interop pour ça c'est un peu sortir la grosse artillerie pour pas grand chose.

Une solution pour ton problème, tu ajoutes dans une liste les données qui représentent une ligne de ton CSV.

Tu crées la liste

Code :

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

Dim liste As New List(Of String)

Ensuite tu ajoutes les données dans la liste

Code :

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

1
2
3
4
liste.Add(maTextBox1.Text)
liste.Add(maTextBox2.Text)
...
liste.Add(maTextBoxN.Text)

Ensuite tu crées ta ligne CSV

Code :

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

String ligneCsv = String.Join(";", liste)

Pour finir tu ajoutes ça à un fichier texte et tu recommences pour chaque ligne du fichier CSV.

[AnneJulie]

Merci pour vos réponses !

En fait, l'utilisation du fichier CSV m'est imposé dans le cahier des charge de mon projet...

Voilà ce que j'ai utilisé pour charger mes données si ça peut aider à me comprendre.

Le module :

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
28
29
Imports System.IO
 
Module Module1
    Public Function ChargerProduits() As String
        Dim nom_produit() As String
        Dim tabligne() As String
        Dim nb_projet As Integer
 
 
        If File.Exists("classeurcsv.CSV") = False Then
            MsgBox("Fichier Inexistant")
 
        Else
            tabligne = File.ReadAllLines("classeurcsv.CSV")
            nb_projet = tabligne.Count - 1
            For i = 1 To nb_projet
                nom_produit = tabligne(i).Split(";")
                For j = 1 To 7
                    Form1.tabprojet(i, j) = nom_produit(j - 1)
 
                Next
            Next
 
        End If
 
        Return nb_projet
 
    End Function
End Module

L'appel :

Code :

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

1
2
3
4
5
6
Public Class Form1
 
    Public tabprojet(100, 7)
    Public nb_projet As Integer
    Public tabprojet2(100, 7)
    Public nb_projet2 As Integer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim i As Integer
 
 
 
 
        nb_projet = ChargerProduits()
        CheckedListBox1.Items.Clear()
        For i = 1 To nb_projet
 
            If ListBox1.SelectedItem = "Boissons" And tabprojet(i, 6) = "b" Then
                CheckedListBox1.Items.Add(tabprojet(i, 1))
            End If