Discussion :

[foufou.mr]

Bonjour,

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

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

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

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

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

[foufou.mr]

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

[chrismonoye]

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

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

[foufou.mr]

Moi, je travail sur Excel 2007 ........

[chrismonoye]

Normalement pas de souci avec 2007, c'est la même chaine de connection

[foufou.mr]

Merci