ADODB.Recordset sur plusieurs cellules

[nak]

Bonjour,

J'ai trouvé la fonction suivante sur un site :

Sub exportDonneeDansCelluleClasseurFerme()
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String

Fichier = "C:" & ComboBox1 & ".xls"

Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"

Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
Cd.CommandText = "SELECT * FROM [Feuil1$B10:B10]"

Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = TextBox1
Rst.Update

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

Avec cette fonction j'arrive à mettre à jour mon fichier en B10 de la feuille 1 suivant mon TextBox1.
Par contre j'aimerais également mettre à jour mon fichier en D5 de la feuille 1 suivant mon TextBox2. Je ne trouve pas d'info pour mettre deux cellules à jour ou plus.
Pouvez vous m'aider SVP ?

Merci

 

[Pierrot93]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

regarde dans la FAQ, les pages de MichelXLD🙂, de nombreux codes pour piloter les fichiers fermés...
https://www.excel-downloads.com/thr...iltres-variables-fichiers-fermes-acces.92374/
bonne journée
@+

 

[BOISGONTIER]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,


Modification d'un enregistrement d'une BD en A1:C2
Nom Prenom Salaire
Dupont Jean 5000

Sub ModifEnregistrement()
  repertoire = ThisWorkbook.Path & "\"
  Set Cnn = New ADODB.Connection
  Fichier = repertoire & "MaBDADO.xls"
  Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Extended Properties=Excel 8.0;"
  Set Rs = New ADODB.Recordset
  Rs.Open "SELECT * from [Feuil1$A1:C2]", Cnn, adOpenDynamic, adLockOptimistic
  Rs(0).Value = "Koko"
  Rs(1).Value = "Bzzzzz"
  Rs(2).Value = 3500
  Rs.Update
  Rs.Close
  Cnn.Close
End Sub

ADO

JB

 

[nak]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

Merci pour vos réponses.
Ecrire dans une plage de cellule parait possible. Par contre écrire dans plusieurs cellules spécifiques semble être un problème. Je vais être obligé de créé autant de fonction que de cellule à renseigner. Dommage...

Merci

 

[nak]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

Toujours avec cette formule que j'essai de décortiquer.
Le "Rs(0)." sert à sélectionner la colonne de la plage Rs.Open.
Mais comment choisir la ligne ? Car là je suis toujours sur la première ligne.

Merci

 

[BOISGONTIER]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

BD en A1:C1000

Nom Penom Salaire
Dupont Pierre 3333
Toto Alain 4444

Sub ModifEnregistrement()
  repertoire = ThisWorkbook.Path & "\"
  Set cnn = New ADODB.Connection
  fichier = repertoire & "ADOsource.xls"
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fichier & ";Extended Properties=Excel 8.0;"
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * from [Feuil1$A1:C1000] WHERE nom='Toto'", cnn, adOpenDynamic, adLockOptimistic
  rs(1).Value = "Jean"
  rs(2).Value =3555
  rs.Update
  rs.Close
  cnn.Close
End Sub

JB

 

[nak]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

Merci Boisgontier pour ton aide.

Malheureusement cela ne fonctionne pas 🙁

J'ai une erreur 3709 sur la ligne

rs.Open "SELECT * from [Feuil1$A1:C1000] WHERE nom='Toto'", cnn, adOpenDynamic, adLockOptimistic

Difficile cette fonction... Il parait impossible d'écrire dans plusieurs cellules. Seule une plage de cellule parait gérable.

Merci quand même

 

[BOISGONTIER]

Re : ADODB.Recordset sur plusieurs cellules

Bonjour,

Ce programme fonctionne en Excel 2003
La BD doit avoir des titres.

JB

 

[nak]

Re : ADODB.Recordset sur plusieurs cellules

Je ne dois pas utiliser la bonne fonction.

Je présente donc le projet (très peut avancé).

J'ai un fichier gestion.xls qui me permet de lancer une listview à partir d'un fichier externe, base.xls.
Dans l'USF je fais Ajout. Là un autre USF me permet de créé un projet suivant les données que je renseignes. Il crée un deux dossiers dans le dossier ou se trouve le gestion.xls. Je copie le projet type dans le nouveau dossier.

Je veux donc prendre les infos dans l'USF création pour les ajouter à mon nouveau fichier.
J'arrive à mettre une info en B10 de le feuille 1 mais pas dans d'autres cellules.

Ensuite je veux aussi balancer les trois mêmes infos dans mon fichier base à la suite des données existantes.

Et enfin rafraichir ma listview.

Je vous joins mes fichiers. Pouvez vous me dire si j'utilise les bonnes fonctions.

Merci