Discussion :

[guigui69]

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 :

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

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

[Thumb down]

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

Code :

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

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

[guigui69]

Ca fonctionne comme tu l'as indiqué.

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

[Thumb down]

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 :

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

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

[Qwazerty]

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