Bonjour à tous

J'espère que vous allez bien et que tous ce passe comme vous le désirez

Au fait, j'ai deux problèmes dans ce qui concerne l'importation d'un fichier Excel vers une Datagridview et j'espère trouver une solution grace à votre aide.

Le premier problème c'est que j'ai un fichier excel qui contient plusieurs colonnes (email, nom, prenom, ..) mais quand j'importe le fichier tous les colonnes se met dans une seule colonne du datagridview. ci-dessous le code que j'ai mis :

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
 
 Private Sub parcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dlg As OpenFileDialog = New OpenFileDialog()
        Dim dlgResult As DialogResult = dlg.ShowDialog()
        If dlgResult = DialogResult.OK Then
            TextBox1.Text = dlg.FileName
        End If
    End Sub
 
    Private Sub integrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim rowValue As String
        Dim cellValue As String()
        If System.IO.File.Exists(TextBox1.Text) Then
 
            Dim streamReader = New StreamReader(TextBox1.Text)
 
            'Reading header
            rowValue = streamReader.ReadLine()
            cellValue = rowValue.Split(",")
            For i As Integer = 0 To i <= cellValue.Count() - 1
                Dim column As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
                column.Name = cellValue(i)
                column.HeaderText = cellValue(i)
                DataGridView1.Columns.Add(column)
            Next
 
            'Reading content
            While streamReader.Peek() <> -1
                rowValue = streamReader.ReadLine()
                cellValue = rowValue.Split(",")
                DataGridView1.Rows.Add(cellValue)
            End While
            streamReader.Close()
        Else
            MessageBox.Show("No File is Selected")
        End If
    End Sub
Deuxième souçi, c'est que je n'arrive pas à importer plusieurs ligne, je peux importer au maximum 150 lignes par contre j'ai besoin d'importer des milliers de lignes.



Pourriez-vous m'aider à régler ces deux problèmes

Merci d'avance

Sanaa