Re : Consulter les donnees d'un classeur dans un autre classeur
Bjr Hajorinette,
Quand j'ai posé la question, je ne savais pas comment m'y prendre, maintenent je pense avoir trouver la solution à mon probleme. voici le code :
Dim cn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim intTblCnt As Integer, intTblFlds As Integer
Dim strTbl As String
Dim rsC As ADODB.Recordset
Dim intColCnt As Integer, intColFlds As Integer
Dim strCol As String
Dim t As Integer, c As Integer, f As Integer
Set cn = New ADODB.Connection
repertoire = ThisWorkbook.Path
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
repertoire & "\" & Me.Mois & ".XLS" 'Me.Mois est une variable qui indique
' le nom du fichier contenant la feuille
' à importer. au cas où on devais importer
' dans plusieurs fichiers
Set rsT = cn.Execute("SELECT * FROM [Rept$]") 'Rept est le nom de la feuille que
'tu importe, il faut le faire
' suivre du signe $
intTblCnt = rsT.RecordCount
intTblFlds = rsT.Fields.Count
For t = 3 To intTblCnt ' Pour parcourir les lignes
For f = 0 To intTblFlds - 1 ' Pour parcourir les colonnes
Cells(t, f + 1).Value = rsT.Fields(f).Value
Next
rsT.MoveNext
Next
rsT.Close
End Sub
Avec ce code j'ai resolu mon probleme.
Ferdhy.