Comment copier coller les donnés d'un autre fichier Excel avec une macro?

Bonjour à tous!

Présentation :
Je suis un jeune ingénieur Méthodes, je sais programmer en C et Java et je viens de me mettre au VB sur Excel dans le cadre de mon travail pour le traitement de donné. Je connais donc assez bien les bases de la programmation mais je bloque encore sur certains points.

Description du problème :
J'ai deux fichiers xls A et B. Dans le fichier A, j'ai une macro qui permet d'ouvrir le fichier B. Je ne trouve pas comment l'on peut faire pour copier des données du fichier B pour les coller dans le fichier A.

Exemple de fonction :
Voici ce que j'ai tenté de faire ;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click() Sheets("Feuille du fichier A").Select Cells.Select Selection.ClearContents Range("A1").Select ChDir "E:\" Workbooks.Open Filename:="\Travail\NomDuFichierB.xls" Range("G9").Select Cells.Select Selection.Copy Windows("Feuille du fichier A").Activate Cells.Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWindow.Close End Sub

---

Merci pour votre aide!
Emmanuel

tiens voila :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub MACopie() Dim shA As Worksheet 'Feuille A Dim wB As Workbook 'Classeur B Set shA = Sheets("Feuille du fichier A") shA.Cells.ClearContents 'efface données Set wB = Workbooks.Open(Filename:="E:\Travail\NomDuFichierB.xls") shA.Cells.Value = wB.Sheets(1).Cells.Value wB.Close False ' ferme sans sauve Set wB = Nothing Set shA = Nothing End Sub

---

J'ai mis cette double boucle pour limiter le temps de copie :

Code:

---

1 2 3 4 5

For x = 1 To 2 Step 1 For y = 1 To 22 Step 1 shA.Cells(y, x) = wB.Sheets(2).Cells(y, x).Value Next y Next x

---

C'est nickel ça marche! Merci

Enfin non... J'utilise Rang... C'est mieux mdr!