J'ai lu cette discussion.
Citation Envoyé par rdurupt Voir le message
Bonjour,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Cn As Object
Set Cn = CreateObject("Adodb.connection")
 With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};driverid=1046;" & _
            "DBQ=" & ThisWorkbook.FullName & ";ReadOnly=False;HDR=NO;IMEX=1;"
        .Open
    End With
    Cn.Execute "Update [Feuil1$] Set [Champ]='2'"
End Sub
Voila cette écriture fonctionne, mais considère la première valeur de la colonne comme l'entête du champ!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
HDR=NO set [Champ]='2'"
J'ai le même problème que toi. Dans ton premier message tu voulais faire un INSERT. Et ton dernier message porte un UPDATE. Je souhaite faire un INSERT, comment puis-je faire?

Lorsque j'utilise la chaine de connexion :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};driverid=1046
J'ai le message : "Pilote ISAM introuvable"...