Bonjour,

J'utilise un programme de gestion de production donc les données sont au format DBF. J'ai vu qu'il était possible d'exploiter ces données avec Excel via la méthode ADO.
(cf : Sujet1 et Sujet2)

Voici mon code :
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
Private Sub CommandButton1_Click()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Chemin As String, Cible As String, laBase As String
 
Chemin = "D:\gp\STOCK"
laBase = "GPLIGVE.DBF"
 
Set Cn = New ADODB.Connection
Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
Chemin & ";"
 
Cible = "SELECT LV_COMM FROM " & laBase & " ;"
 
Set Rs = New Recordset
Rs.Open Cible, Cn
 
Msgbox Rs.Fields(1).Value
 
Rs.Close
Cn.Close
End Sub
J'aimerais dans un premier temps, pouvoir tester cette méthode en affichant le premier résultat dans une boite de dialogue. (requête très simple sans critère)

Avec le code actuel j’obtiens le message d'erreur suivant : "La table externe n'est pas dans le format attendu"
L'erreur se produit sur la ligne Rs.Open.

Svp, pourriez-vous m'aider ?

Merci d'avance et bonne journée.