Importer fichier Excel dans datagridview

Version imprimable

Bonjour,

J'ai besoin d'importer un fichier Excel dans un datagridview. Voila le code.

Mais le datagridview s'affiche vide.............

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  Dim nomFichier As String = "C:\Users\NHaouel\Desktop\ecureuilServices\P13PRESSING_v1.0\Factures\" & numeroTextBox.Text & ".xlsx"
            Dim dat As DataSet
            dat = New DataSet
            'déclaration et utilisation d'un OLeDBConnection 
            Using Conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & nomFichier & "';Extended Properties=""Excel 12.0;""") 'HDR=Yes;IMEX=1""")
                Conn.Open()
                'déclaration du DataAdapter 
                'notre requête sélectionne toute les cellule de la Feuil1 
                Using Adap As OleDbDataAdapter = New OleDbDataAdapter("select * from [Feuil1$]", Conn)
                    Adap.TableMappings.Add("Table", "TestTable")
                    'Chargement du Dataset 
                    Adap.Fill(dat)
                    'On Binde les données sur le DGV 
                    DataGridView1.DataSource = dat.Tables(0)
                End Using
                'le end using libère les ressources 
                Conn.Close()

Merci

11/12/2013, 21h42
clementmarcotte

Bonjour,

Sauf horreur et/ou panne de mémoire de ma part, le nom de ta "base de données" dans Excel, ne doit pas être le nom de la feuille, mais être une plage nommée qui contient les données. Le nom de la plage dans Excel, devient le nom de la base de données dans ADO.net

Je n'ai plus assez de jus dans ma batterie pour aller plus loin, mais je sais qu'il y a plusieurs articles/exemples sur

Il faut être membre pour télécharger les sources, mais ils sont fiables.
12/12/2013, 07h30
tovin

Bonjour,
L'exemple de code donné fait plus penser à l'importation d'une base Access que d'un fichier Excel.
N'y-a-t'il pas un problème à ce niveau ?
12/12/2013, 09h49
foufou.mr

Pouvez vous m'expliquer un peu plus ????

Bonjour,
j'ai testé votre code avec un fichier Excel 2010 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Dim nomFichier As String = My.Computer.FileSystem.CurrentDirectory & "\ex47.xlsx"
        Dim dat As DataSet
        dat = New DataSet
        'déclaration et utilisation d'un OLeDBConnection 
        Using Conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & nomFichier & "';Extended Properties=""Excel 12.0;""") 'HDR=Yes;IMEX=1""")
            Conn.Open()
            'déclaration du DataAdapter 
            'notre requête sélectionne toute les cellule de la Feuil1 
            Using Adap As OleDbDataAdapter = New OleDbDataAdapter("select * from [Feuil1$]", Conn)
                Adap.TableMappings.Add("Table", "TestTable")
                'Chargement du Dataset 
                Adap.Fill(dat)
                'On Binde les données sur le DGV 
                DataGridView1.DataSource = dat.Tables(0)
            End Using
            'le end using libère les ressources 
            Conn.Close()
        End Using

Aucun problème.

12/12/2013, 10h28
foufou.mr

Moi, je travail sur Excel 2007 ........
12/12/2013, 10h58
chrismonoye

Normalement pas de souci avec 2007, c'est la même chaine de connection
12/12/2013, 17h14
foufou.mr

Merci :)