Salut Mélodie,
Voici un exemple à adapter à ton besoin :
Je suis dans un classeur Excel quelconque, sur une feuille quelconque.
Je veux lire les 20 premières lignes de la feuille "Liste des ventes" du classeur "Ventes.xls" qui se trouve dans un dossier précis.
Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String, I As Integer
'Noms de chemin et de fichier à adapter
Chemin = "D:\HC\Excel\"
Fichier = "Ventes.xls"
'Ouverture du classeur "Ventes"
Workbooks.Open Chemin & Fichier
'Lecture des lignes du classeur "Ventes" et affectation à la feuille active
With Workbooks(Fichier).Sheets("Liste des ventes")
For I = 1 To 20
Range("A" & CStr(I)) = .Range("A" & CStr(I))
Range("B" & CStr(I)) = .Range("B" & CStr(I))
Next
End With
Workbooks(Fichier).Close
End Sub
A toi de jouer !
A+
Horatio