Bonjour,
 
voilà mon problème: je veux copier une partie d'un tableau excel vers Word, sauf que je veux le faire pour plusieurs tableaux, donc il faudrait que j'arrive à modifier à chaque fois la taille du tableau. pour cela j'ai cherché sur le net et j'ai trouvé cette methode, sauf qu'elle ne marche pas ( enfin je l'ai ajustée, elle n'était pas comme ça)
 
 
Sub Excel_Word()
 
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
Dim c
Dim X As String
 
 
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application" )
 
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
 
'Rendre Word visible
oWdApp.Visible = True
 
' Dernière cellule non vide
c = Range("B65536" ).End(xlUp).Row
X = "B" & c
 
'Copier une plage depuis Excel
ActiveSheet.Range("A1:X" ).Copy
 
 
 
'Coller la plage dans Word
oWdApp.Selection.Paste
 
'Annuler le mode couper/copier
Application.CutCopyMode = False
 
End Sub
 
 
 
Je vous remercie pour votre aide.