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