Bonjour,
Je cherche à exporter les enregistrements d'un fichier Excel vers une DataTable.
Cela marche correctement, mais dès qu'il y'a une centaine d'enregistrements dans le fichier excel, l'erreur
date oleaut illégale est générée.
Voici le code de ma fonction :
Quelqu'un a t' il déjà été confronté a ce problème ?
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
29
30
31
32
33
34
35 Public Function GetDataTable(ByVal Colonne As String, ByVal Feuille As String) Try 'ouverture connexion Me.open() 'récupération des enregistrements _MonAdapter = New OleDbDataAdapter("select " & Colonne & " from " & Feuille, _MaConnexion) Try 'met à jours les lignes de _MonDataTable _MonAdapter.Fill(_MonDataTable) Catch e As Exception MsgBox(ex.Message) End Try 'ferme la connexion Me.close() 'destruction de l'objet _MonAdapter = Nothing _MonDataTableTaille = _MonDataTable.Rows.Count Return _MonDataTable Catch ex As Exception MsgBox("excel 4 " & ex.Message) Me.close() Return 0 End Try End Function
Partager