Bonjour,
Je suis actuellement entrain de faire le tuto sur la lecture et l'ecriture dans un classeur fermé. Cependant je bloque sur l'écriture, en effet j'ai créé un fichier Base.xls dans C:\. J'ai ensuite créé un fichier excel avec la macro du tuto:
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
36
37
38
39
Sub ajoutEnregistrement()
    Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LaDate As Date
    Dim PrixUnit As Integer
    Dim leNom As String, lePrenom As String
 
    Fichier = "C:\Base.xls"
    Feuille = "Feuil1"
 
    'Les données à insérer:
    LaDate = CDate("26/05/2006")
    leNom = "NomTest"
    lePrenom = "PrenomTest"
    PrixUnit = 40
 
    Set Cn = New ADODB.Connection
 
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
 
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [Feuil1$] VALUES (#" & LaDate & "#, " & _
        "'" & leNom & "', " & _
        "'" & lePrenom & "', " & _
        PrixUnit & ")"
 
    MsgBox strSQL
    Feuille = "Feuil2"
 
    Cn.Execute strSQL
 
    Cn.Close
    Set Cn = Nothing
End Sub
Et à l'execution un message d'erreur apparait :
Erreur d'exécution '-2147217900 (80040e14)':
[Microsoft][Pilote ODBC Excel] Le nombre de valeurs de la requete doit coincider avec le nombre de champs destination.

Ou est mon erreur ?????? Merci