Re : Repousser les limites du publipostage...
Bonjour,
Un petit exemple, comment créer dans Word, une table représentant
une plage de donnée dans une feuille Excel. Maintenant, à toi
d'adapter le code selon tes besoins.
'---------------------------------------
Sub test()
Dim Rg As Range
Dim Wd As Object
Dim Dc As Object, C As Object
Dim T As Object, P As Object
Dim A As Integer, B As Integer
Dim Bb As Object
'Définir le nom de la feuille et la plage à copier
'dans le future fichier Word
With Worksheets("Feuil1")
Set Rg = .Range("A1
5")
End With
'Création d'une instance de Word
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add
'Création d'une table où les données d'Excel seront copiées
Set T = Dc.Tables.Add(Range:=Dc.Range, _
NumRows:=Rg.Rows.Count, _
NumColumns:=Rg.Columns.Count)
'Copie des données
For A = 1 To Rg.Rows.Count
For B = 1 To Rg.Columns.Count
T.Cell(A, B).Range = Rg(A, B)
Next
Next
'Si tu veux appliquer des bordures horizontales
'et verticales dans le tableau de Word
With T
For Each C In .Range.Columns
C.Borders(-5).Visible = True
Next
For Each P In .Range.Rows
P.Borders(-6).Visible = True
Next
For A = -4 To -1
.Range.Borders(A) = True
Next
End With
End Sub
'---------------------------------------