rebonsoir sylsyl
après quelques essais j'ai trouvé cette méthode pour redimensionner un tableau dans word
With Wrd.Selection
.Tables(1).Columns(j).Width = 30
End With
j'espere que cela pourra t'aider
Sub Insere_tableauV03()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Dim i As Byte, j As Byte
On Error Resume Next
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Application.ScreenUpdating = False
Sheets("feuil1").UsedRange.Copy
Wrd.Selection.Paste
For j = 1 To 6 ' redimensionner le 1er tableau copié dans word
With Wrd.Selection
.Tables(1).Columns(j).Width = 30
End With
Next j
For i = 1 To 5 ' inserer 5 lignes vides
Wrd.Selection.TypeParagraph
Next i
Sheets("feuil2").UsedRange.Copy ' copier le tableau de la 2eme feuille
Wrd.Selection.Paste
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
bonne soirée
michel