Discussion :

[jojo86]

J'ai lu cette discussion.

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"...

[Oliv-]

Salut Robert

Comme cela ca fonctionne

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
Sub Write2XL()
Dim Cnn   As Object
 
Set Cnn = CreateObject("ADODB.Connection")
 repertoire = ThisWorkbook.Path & "\"
  Fichier = repertoire & "ADOsource.xlsx"
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
         "Data Source=" & Fichier & ";" & _
         "Extended Properties=Excel 12.0;"
'oCn.Execute "Insert Into [Feuil1$] (texte) Values('mon texte')"
 Dim cm As New ADODB.Command
  With cm
        .ActiveConnection = Cnn
        .CommandText = "INSERT INTO [Feuil1$] ([texte]) Values (?)"
        .CommandType = adCmdText
        Set Pm = .CreateParameter("@texte", adLongVarChar, adParamInput, 30000, Workbooks("Ajout enregistrements.xls").Sheets("feuil1").Cells(2, 3))
        .Parameters.Append Pm
        'On Error Resume Next
       .Execute
       Debug.Print Err.Description
    End With
Cnn.Close
End Sub