Copie d'un fichier vers l'autre

[Mélodie lanoy]

Bonjour à tous,

Voilà j'ai un petit blème pour la copie d'une cellule d'un fichier vers une cellule d'un autre fichier: j'arrive pas à formuler la commande. J'ai fais plusieurs recherches sur le forum et j'ai pas trouvé.
En pratique, je voudrais copier les 4 premières cellules d'un fichier se trouvant sur le lecteur X vers le claseur en cours (où se trouve ma macro).

Merci d'avance pour vos réponses.

Mélodie
@+

 

[Lord Nelson]

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

 

[Mélodie lanoy]

re, lord,

super merci je suis très contente : j'ai adapté à mon code et c'est un bijou!!!

@+