bullbull2010
XLDnaute Nouveau
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.
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.