bullbull2010
XLDnaute Nouveau
bonjour,
Voila, je fais une macro pour copier des tableaux d'un classeur vers un document word, sauf que je veux qu'entre deux tableaux, il y ait une ligne de vide sur Word, et non pas une ligne de tableau vide (on pourrait imaginer de rajouter une ligne vide à chaque tableau, et voilà...)
Voila mon Code:
Quelqu'un pourrait-il m'aider?
Voila, je fais une macro pour copier des tableaux d'un classeur vers un document word, sauf que je veux qu'entre deux tableaux, il y ait une ligne de vide sur Word, et non pas une ligne de tableau vide (on pourrait imaginer de rajouter une ligne vide à chaque tableau, et voilà...)
Voila mon Code:
Code:
Sub bull()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
Dim C
Dim I As Integer
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
For I = 4 To Worksheets.Count
' Dernière cellule non vide
C = Worksheets(I).Range("B65536").End(xlUp).Row
'Copier une plage depuis Excel
Worksheets(I).Range("A2:B" & C).Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
'Annuler le mode couper/copier
Application.CutCopyMode = False
Next
Cancel = True
End Sub
Quelqu'un pourrait-il m'aider?