Bonjour,

je tente de réaliser en vb un module me permettant d'exporter vers Excel des enregistrements requêter par un ODBC.

Je réussis à réaliser l'export d'un enregistrement (méthode recordset). Mais, je ne sais pas comment exporter tous les enregistements de ma requête.
Quelle méthode utilisée ?...etc

Voici le code utilisé :

Sub ADOOpenRecordset()

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field

' Ouverture de la connexion
cnn.Open "DSN=" & "bcf_gescom" & ";UID=" & "sa" & ";PWD=" & ""

' Ouverture du Recordset en défilement en avant, et en lecture seule
rst.Open "SELECT * FROM VFICART", cnn, adOpenForwardOnly, adLockReadOnly

Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook

Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("C:\temp\essai_odbc.xls")

appexcel.Sheets("Feuil1").Select

appexcel.Cells(5, 2) = rst.Fields(1)
appexcel.Cells(5, 4) = rst.Fields(2)
appexcel.Cells(5, 7) = rst.Fields(5)

' Fermeture du Recordset
qdf.Close
End Sub

Comment faut-il le modifier ?

Merci pour votre aide !!!!

pm

Bonjour,

Un recordset étant un jeu d'enregistrements, il faut que tu le parcours grâce aux différentes méthodes qui lui sont attribuées, moveFirst, MoveNext ...
Pour ton code il faudrait que tu ajoutes :

[...]
rst.MoveFirst
While Not rst.EOF
  appexcel.Cells(5, 2) = rst.Fields(1)
  appexcel.Cells(5, 4) = rst.Fields(2)
  appexcel.Cells(5, 7) = rst.Fields(5)
  rst.MoveNext
Wend
[...]

(Je n'ai pas eu le temps de tester mais ça devrait être ça)

Fanny