[MichelXld]

bonsoir Michel

c'est sympa de te joindre à nous

ci joint une autre version : j'ai repris la procedure de Thierry dans le message de 18:19 , en l'adaptant pour importer les donnees de la feuille 'Calculs'

Sub TheADOReader()
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

XLFile = ThisWorkbook.Path & '\\classeurFerme.xls'
Feuille = 'Calculs'

RangeSource = 'R19:U29'

  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 & '`')

  With Sheets('ADOCollector')
      .Range('A' & .Range('A65536').End(xlUp).Row).CopyFromRecordset ADORecordSet
  End With

ADORecordSet.Close
ADOConnection.Close
End Sub

bonne soiree
MichelXld

Message édité par: MichelXld, à: 09/07/2005 22:29