Discussion :

[Begin_09]

Bonjour à tous,

J'avais une petite application qui marchait bien et je dois 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 de mon fichier toto.xlsx).

Voici mon code :

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
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 rapide !!

Nathalie

P.S : Désolée, j'ai aussi posté sous Contribuez...

[getule]

remplace ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cd.CommandText = "SELECT * FROM [Config$B30:B30]"

par ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cd.CommandText = "SELECT * FROM [" & Config$ & B30:B30 & "]"

[Begin_09]

Eh non, malheureusement :

Config est le nom de ma feuille, ce n'est pas une variable et B30:B30 doit être lui aussi passé en texte.

Donc ce n'est pas ça...merci quand même !

Nath.