[VBA] 1 Resultat Requete SQL dans une cellule

Bonjour,

depuis un fichier excel, en VBA j’exécute une requête SQL qui va me retourner une seul ligne de résultat.

Quand j'ai plusieur résultat je fait arriver le résultat sur une feuille de mon fichier excel, mais la comme j'ai un seul résultat, je voudrais dire que la donnée/ Champs "NStock" je l'insere dans la cellule E10, La donnée/CHamps "Marque" je l'insere dans la cellule B14.

Code:

---

1 2	Worksheets("ru").Range("E10").CopyFromRecordset rsBati

---

Est-ce possible de le faire avec le CopyFromRecordset ou pas? faut-il passer par une autre méthode?

merci d'avance pour vos conseil

guigui69

Bonjour,
Tu n'as pas essayer pour voir si c'est possible ?

Code:

---

1 2 3 4 5 6

with Worksheets("ru") If not rsBati.eof then .Range("E10")=rsBati("NStock") .Range("B14")=rsBati("Marque") En if Enduit with

---

Ca fonctionne comme tu l'as indiqué.

Pourquoi je n'ai pas besoin utiliser "CopyFromRecordset" pour cela ?

CopyFromRecordset est une fonction Excel qui parcourt le recordset pour l'affecter à une plage Excel! il est préférable de l'utiliser quand les cellules à affecter sont contigües!

un recordset est une collection d'enregistrements et champs {fields} il es possible de les manipuler en VBA sans passer par des méthode Excel car ado s'adresse à vb mais pas forcément à Excel!

voici l'équivalant à CopyFromRecordset en pur VBA uniquement!

Code:

---

1 2 3 4 5 6 7 8 9

With Worksheets("ru") While Not rsBati.EOF For C = 0 To rsBati.fields.Count - 1 .Range("E10").Offset(L, C) = rsBati(C) Next rsBati.Movenext L = L + 1 Wend End With

---

Salut

Si la version le permet pourquoi ne pas plutôt utiliser PowerQuery (ou MsQuery)? Ces extensions sont faites pour rapatrier des données.

++
Qwaz