Ecrire dans cellule de classeur fermé partagé

Question

Bonsoir,

Je voudrais modifier le contenu d'un classeur fermé partagé excel 2007 via une connexion adodb. Mais tous les codes que j'ai pu avoir sur le net sont mal exécutés. Je suis nul.

Code:
Sub EcrireDansCelluleClasseurFerme()
    '    
    Dim cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    
    Fichier = "e:\ClasseurFermé.xlsx"
    Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
   
    Set Cd = New ADODB.Command
    Cd.ActiveConnection = cn
    Cd.CommandText = "SELECT * FROM [Liste$H10:H10]" 'ecrit toujours dans la même cellule
    
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = "TAMARIN"
    Rst.Update
    cn.Close
    
    Set cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
    
End Sub
Ce code ne marche pas. Quel est le role de Rst et de Rst(0)?
Merci de m'aider

yapson2011

cs_Jack · Answer

Salut

"Ce code ne marche pas"
C'est un peu court comme explication de ton problème.

Rst est un ... RecordSet
Il faut regarder dans l'aide. Être nul n'est pas n'est pas une fatalité.
Un RecordSet est un objet qui contient la liste de tous les champs demandés lors de la requète. Les champs composent les colonnes du RecordSet alors que chaque ligne correspond à chaque série de données (si plusieurs champs)
Avant de vouloir modifier un des champs avec la valeur "TAMARIN", il faut sélectionner quelle ligne doit être modifiée. Voir les méthodes .MoveFirst, .MoveNext ...
Rst(0) voudrait dire que tu as un tableau de RecordSet, ce qui n'est pas vrai, à la ve de la déclaration.
La vraie syntaxe serait 
Rst.Fields(0).Value
ou encore
Rst.Fields("NomDuChamp").Value

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Ecrire dans cellule de classeur fermé partagé

1 réponse

Votre réponse

Discussions similaires