Discussion :

[Archampi]

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

[clementmarcotte]

Bonjour,

Le moteur ACE est inclus dans les Runtime d'Access

P.S. Je pensais être chanceux par là, mais ils semblent plus préoccupés par l'opération inverse.
Je l'ai quand même mis au cas où …

P.P.S. Une autre très bonne adresse qui peut être très utile
(même les exemples des versions plus anciennes peuvent être récupérées dans une version plus récente. L'inverse peut être plus compliqué, mais ce n'est pas toujours impossible)

[Archampi]

Merci,

Heureusement, j'ai réglé mon problème.