Macro pour copier un tableau de taille variable vers Word

[bullbull2010]

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.

 

[ninbihan]

Re : Macro pour copier un tableau de taille variable vers Word

Bonjour Bullbull,

A tester :

Sub Excel_Word()

Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
Dim C




'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

'Copier une plage depuis Excel
ActiveSheet.Range("A1:B" & C).Copy



'Coller la plage dans Word
oWdApp.Selection.Paste

'Annuler le mode couper/copier
Application.CutCopyMode = False

End Sub

Bonne journée,

Ninbihan

 

[bullbull2010]

Re : Macro pour copier un tableau de taille variable vers Word

Ooo merci ninbihan, je vois que t'as joué sur le string différemment, et ça marche bien!

maintenant, vu que je vais faire cette tâche pour chaque feuille de mon classeur, je rajoute uniquement une boucle for, pour le faire pour chaque feuille, à savoir,


'Rendre Word visible
oWdApp.Visible = True

For I = 2 To Worksheets.Count

' Dernière cellule non vide
C = Range("B65536").End(xlUp).Row




et à la fin je mets un end, mais je crois qu'il y a quelque chose qui manque, puisque ça marche pas...

une Correction?

 

[ninbihan]

Re : Macro pour copier un tableau de taille variable vers Word

Rebonjour,

Comme tu utilises le copier/coller, il faut donc que tu sélectionnes les feuilles successivement. Cela devient donc:

For I = 2 To Worksheets.Count
worksheets(i).select

Bon aprés midi,

Ninbihan