Importation d'un fichier excel vers un datagridview

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:

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.

http://news.emailingmanagement.com/m...ns-titre-4.jpg

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

Merci d'avance

Sanaa