Discussion :

[regi54]

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 :

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

 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 :

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
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

[ekydeta]

Code :

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

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 :

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

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

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

etc...

[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 :

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

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 :

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

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" 
[...]

[clementmarcotte]

Bonjour,

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

etc...

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

Code :

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

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

[clementmarcotte]

Bonjour,

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 :

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

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.

[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 😊

[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.