Comment importer une feuille d'un fichier Excel dans un DataGridView
Bonjour à vous,
J'ai trouvé sur Youtube, une vidéo qui explique le procédé. Mais bien que je sois certain d'avoir correctement recopié le code qui était illustré, j'en arrive quand même à cette erreur:
Pilote ISAM introuvable.
Voici le code en question:
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
| Private Sub CmdImporter_Click(sender As Object, e As EventArgs) Handles CmdImporter.Click
Dim Conn As OleDbConnection
Dim dta As OleDbDataAdapter
Dim dts As DataSet
Dim excel As String
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "All files (*.*)|*.*"
'Try
If OpenFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
Dim fi As New IO.FileInfo(OpenFileDialog.FileName)
Dim filename As String = OpenFileDialog.FileName
excel = fi.FullName
Conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 14.0;")
dta = New OleDbDataAdapter("select * from [Sheet1$]", Conn)
dts = New DataSet
dta.Fill(dts, "[Sheet1$]") 'Le programme plante sur cette ligne.
DGV1.DataSource = dts
DGV1.DataMember = "[Sheet1$]"
Conn.Close()
End If
'Catch ex As Exception
'MsgBox(ex.Message)
'Conn.Close()
'End Try
End Sub |
Le programme plante à la ligne 19.
Le vidéo mentionnait qu'il fallait également ajouter la référence à Microsoft Excel 12.0. Je n'ai pas cette version mais plutôt la version 14.0
J'espère avoir une réponse à cette problématique.
Merci
