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