Importer CSV avec entête VB.Net

Version imprimable

Bonjour à tous,
je souhaite importer un fichier csv dans un datagridview, mais avec les particularités suivantes:
La première ligne de mon fichier csv doit correspondre aux entêtes du datagridview
Je ne souhaite que garder les colonnes 1,2,16,17,20,21,24,25,26 les autres doivent être masquée.
Je cherche une solution simple.
Pour l'instant j'arrive à importer mes données dans le datagridview mais pas à renommer les colonnes.

Voici la première ligne de mon fichier CSV:

Code:

 Matricule;Nom;Prenom;Nom Naissance;Pseudo de connexion;Mot de passe de connexion;Civilité;Téléphone Perso;Téléphone Pro;Email Perso;Email Pro;Préférence envoi courier;Adresse;Adresse suite;Code Postal;Ville;Service;Statut;Contrat;Date de naissance;Date d'entrée;Date de sortie;Situation familiale;Matricule conjoint dans entreprise;Coefficient 2014;Coefficient 2015;Coefficient 2016;Banque;Titulaire;IBAN;BIC;Autorisation de prélèvement;N° de compte

Voici mon code:

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
        Dim TextFileReader As New FileIO.TextFieldParser(selectedFile)
 
        TextFileReader.TextFieldType = FileIO.FieldType.Delimited
        TextFileReader.SetDelimiters(";")
 
        Dim TextFileTable As DataTable = Nothing
 
        Dim Column As DataColumn
        Dim Row As DataRow
        Dim UpperBound As Int32
        Dim ColumnCount As Int32
        Dim CurrentRow As String()
 
        While Not TextFileReader.EndOfData
            Try
                CurrentRow = TextFileReader.ReadFields()
                If Not CurrentRow Is Nothing Then
 
                    ''# Check if DataTable has been created
                    If TextFileTable Is Nothing Then
                        TextFileTable = New DataTable("TextFileTable")
                        ''# Get number of columns
                        UpperBound = CurrentRow.GetUpperBound(0)
                        ''# Create new DataTable
                        For ColumnCount = 0 To UpperBound
                            Column = New DataColumn()
                            Column.DataType = System.Type.GetType("System.String")
                            'tutu = CurrentRow(ColumnCount).ToString
                            ' Column.ColumnName = CurrentRow(ColumnCount).ToString
                            Column.ColumnName = "Column" & ColumnCount
                            Column.Caption = CurrentRow(ColumnCount).ToString
                            Column.ReadOnly = True
                            Column.Unique = False
                            TextFileTable.Columns.Add(Column)
 
                        Next
                    End If
 
                    'ajout des données
 
                    Row = TextFileTable.NewRow
                    For ColumnCount = 0 To UpperBound
                        Row("Column" & ColumnCount) = CurrentRow(ColumnCount).ToString
                    Next
                    TextFileTable.Rows.Add(Row)
 
 
                End If

J'ai cherché un peux partout mais je ne trouve pas la solution, si quelqu'un peux m'aider...
Merci d'avance

17/07/2015, 11h35
ekydeta

Code:

Dim monSplit() as string = Split( Matricule;Nom;Prenom;Nom Naissance;Pseudo de connexion;Mot de passe de connexion;Civilité;Téléphone Perso;Téléphone Pro;Email Perso;Email Pro;Préférence envoi courier;Adresse;Adresse suite;Code Postal;Ville;Service;Statut;Contrat;Date de naissance;Date d'entrée;Date de sortie;Situation familiale;Matricule conjoint dans entreprise;Coefficient 2014;Coefficient 2015;Coefficient 2016;Banque;Titulaire;IBAN;BIC;Autorisation de prélèvement;N° de compte, ";")

ou

Code:

Dim monSplit() as string = Split(taligne, ";")

monSplit(1) = "matricule"
monSplit(2) = "Nom"

etc...
17/07/2015, 15h08
Tomtom31
Juste pour apporter un complément, tu souhaite renommer les noms des colonnes lors de l'ouverture dans Excel (remplace A par Nom, B par matricule, etc...) ou juste attribuer les entête?

Dans le premier cas, il suffit effectivement de découper ton CSV avec la fonction split (fournie par ekydeta) et de mettre la valeur dans tes celulles (avec une boucle par exemple, si besoin supprimer les entêtes inutiles avant ;) ):
Code:

1 2 3 4 5 Dim i As Integer For i = 0 To MonString.Length xlsfeuille.Cells(1, i+1).value = MonString(i) Next
Si tu souhaite renommer tes colonnes, je passerai personnellement par un objet Column:
Code:

1 2 3 4 5 6 7 Dim cCol as Column cCol=DataGrid1.Columns(1) cCol.Caption="Nom" cCol=DataGrid1.Columns(2) cCol.Caption="Matricule" [...]
17/07/2015, 21h33
clementmarcotte
Bonjour,

Citation:

monSplit(1) = "matricule"
monSplit(2) = "Nom"

etc...

Pas tout à fait. Le premier indice est zéro
Code:

1 2 monSplit(0) = "matricule" monSplit(1) = "Nom"
17/07/2015, 21h40
clementmarcotte
Bonjour,
Citation:
Envoyé par Tomtom31

Juste pour apporter un complément, tu souhaite renommer les noms des colonnes lors de l'ouverture dans Excel (remplace A par Nom, B par matricule, etc...) ou juste attribuer les entête?

Si tu souhaite renommer tes colonnes, je passerai personnellement par un objet Column:

Code:

1 2 3 4 5 6 7 Dim cCol as Column cCol=DataGrid1.Columns(1) cCol.Caption="Nom" cCol=DataGrid1.Columns(2) cCol.Caption="Matricule" [...]
Encore là, l'idée générale est bonne, mais le premier indice c'est en principe zéro.
18/07/2015, 07h35
Tomtom31

Bonjour,
En effet, pour le Split le premier indice est 0. En revanche, pour les colonnes (dans excel) la première est la colonne 1 (la première cellule est cell(1,1)). D'où le i +1 pour le renommage des colonnes 😊
31/07/2015, 21h14
clementmarcotte

Bonjour,

C'est probablement trop tard, mais j'ai pondu cela:

http://dotnet.developpez.com/telecha...nes-a-afficher

Sauf qu'il commence par afficher toute la table, et que je crée une table ad-hoc qui correspond à mon fichier.

Mais bon, si cela peut servir, ce ne sera pas du temps perdu.