Envoi des données de Excel vers Excel

Bonjour à tous,

j'aimerais adapté un code vba qui permet d'envoyer des données excel vers du word.
Pour que cela m'envois des données vers du excel.
Si quelqu'un pouvait m'aider? merci

Code:

---

1 2 3 4 5

..Tables(1) correspond au 1ER TABLEAU-     WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Sheets("Faits_constates").Range("P" & i).Text WordDoc.Tables(1).Columns(2).Cells(1).Range.Text = Sheets("Faits_constates").Range("C" & i).Text

---

Bonjour Marc31,

Simplement comme ceci, j'imagine :

Code:

---

Worksheets("Destination").Range("A1:B20").Value = Worksheets("Source").Range("B2:C21").Value

---

Sans plus d'explications, il va être difficile à la communauté de t'aider d'avantage.

Cordialement,
Kimy

Oui désolé je ne suis peut être pas assez précis....
Alors j'ai un classeur " classeur1" où il y a des données (E2 à E38) dans feuil2 nommée "faits" et je souhaite en appuyant sur un bouton les envoyer dans un autre classeur "classeur2" avec des données (C6 à C42) dans feuil1 nommée "faits" aussi!

Et tu ne peux pas t'en sortir avec mon exemple ?

Code:

---

Workbooks("classeur2").Worksheets("faits").Range("C6:C42").Value = Workbooks("classeur1").Worksheets("faits").Range("E2:E38").Value

---

Bref, n'hésite pas à revenir vers moi.

Cordialement,
Kimy

Merci ça marche nickel! et je suis nul en vba......encore merci et bonne journée