Sub TheADOReaderV01()
'http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF_ADO_Calculs_Collector_V01_03.zip
'adapté de @+Thierry
Dim XLFile As String
Dim RangeSource As String
Dim ADOConnection As ADODB.Connection
Dim ADOCommand As ADODB.Command
Dim ADORecordSet As ADODB.Recordset
Dim Feuille As String
Dim Ctrl As Boolean
Ctrl = False
XLFile = 'C:\\Essai_Lecture_Base.xls'
Feuille = 'Essai_Lecture_Base'
RangeSource = 'D24:D123'
Set ADOConnection = New ADODB.Connection
ADOConnection.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & XLFile & ';Extended Properties=''Excel 8.0;HDR=No;'';'
Set ADOCommand = New ADODB.Command
With ADOCommand
.ActiveConnection = ADOConnection
.CommandText = 'SELECT * FROM `' & Feuille & '$' & RangeSource & '`'
End With
Set ADORecordSet = New ADODB.Recordset
ADORecordSet.Open ADOCommand, , adOpenKeyset, adLockOptimistic
Set ADORecordSet = ADOConnection.Execute('`' & Feuille & '$' & RangeSource & '`')
Do While Not ADORecordSet.EOF 'boucle sur les données
If Left(ADORecordSet.Fields(0).Value, 1) = '-' Then
Ctrl = True
Exit Do
End If
ADORecordSet.MoveNext
Loop
If Ctrl = True Then
MsgBox 'repond à la requete'
Else
MsgBox 'ne repond pas à la requete'
End If
ADORecordSet.Close
ADOConnection.Close
End Sub