none
Accès classeur Excel 2007 fermé avec ADO RRS feed

  • Question

  •  

    Bonjour à tous,

    J'avais une petite application qui marchait bien et j'essaye de la transformer, pour qu'elle fonctionne à nouveau sous Excel 2007. Mais, il m'est impossible d'écrire ailleurs que dans la cellule B1 (alors que d'après moi, ce code devrait écrire dans la cellule B30 de la feuille Config).

    Voici mon code :

    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    Fichier = "c:\toto.xlsx"

    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & Fichier & ";" & _
    "Extended Properties=""Excel 12.0;HDR=NO;"""

    Set Cd = New ADODB.Command
    Cd.ActiveConnection = Cn
    Cd.CommandText = "SELECT * FROM [Config$B30:B30]"
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = "Donnée test"
    Rst.Update

    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing

    Merci d'avance aux spécialistes pour votre aide  et à ceux qui pourront m'expliquer la différence d'accès ADO entre 2003 et 2007...

    P.S : Dans le même ordre d'idée, je n'arrive plus à lire une seule cellule....mais uniquement une plage.
    lundi 17 septembre 2007 22:43