Discussion :

[Marc31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

Bonjour Marc31,

Simplement comme ceci, j'imagine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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!

[Kimy_Ire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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