Lecture dans une base Access.

Bonjour à tous,

Ci-dessous un bout de code repris sur le site de Eric Reynaud.
Il fonctionne parfaitement sauf que au lieu de copier les données sur une
feuille comme targetRange.copyfromrecordset rsdata, je voudrais les
reprendre dans une variable... et là je patauge... voir ou j'ai mis les ????
Un grand merci pour votre aide à tous
A+++
Bruno

Sub ImporteDataAccess()

Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim intColIndex As Integer
Dim MyCritere As String
Application.ScreenUpdating = False
'Set TargetRange = ActiveWorkbook.Sheets("result").Cells(1, 1)
MyCritere = "hm1"
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source > d:doc_brunojobbase_gest.mdb;"
szSQL = "SELECT base_gest.* FROM base_gest " & "WHERE
(((base_gest.user_id) Like '" & MyCritere & "'))"
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adLockReadOnly, adLockReadOnly, adCmdText
If Not rsData.EOF Then
'??????
Else
MsgBox "Il n'y a aucun enregistrement correspondant.",
vbInformation
End If
If CBool(rsData.State And adStateOpen) Then rsData.Close
Set rsData = Nothing
End Sub

bonjour
regarde l'aide à getrows
rsdata.Getrows(..

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Bruno" <bruno.termonia@skynet.be> a écrit dans le message de news:
4031af88$0$7028$ba620e4c@news.skynet.be...

Bonjour à tous,

Ci-dessous un bout de code repris sur le site de Eric Reynaud.
Il fonctionne parfaitement sauf que au lieu de copier les données sur
une

feuille comme targetRange.copyfromrecordset rsdata, je voudrais les
reprendre dans une variable... et là je patauge... voir ou j'ai mis les
????

Un grand merci pour votre aide à tous
A+++
Bruno

Sub ImporteDataAccess()

Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim intColIndex As Integer
Dim MyCritere As String
Application.ScreenUpdating = False
'Set TargetRange = ActiveWorkbook.Sheets("result").Cells(1, 1)
MyCritere = "hm1"
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source > > d:doc_brunojobbase_gest.mdb;"
szSQL = "SELECT base_gest.* FROM base_gest " & "WHERE
(((base_gest.user_id) Like '" & MyCritere & "'))"
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adLockReadOnly, adLockReadOnly,
adCmdText

If Not rsData.EOF Then
'??????
Else
MsgBox "Il n'y a aucun enregistrement correspondant.",
vbInformation
End If
If CBool(rsData.State And adStateOpen) Then rsData.Close
Set rsData = Nothing
End Sub