redimmension tableau erreur

[elo6]

Et oui c'est re moi ...
Alors re salut!
Toujours avec mon problème de tableau (et oui, je persiste!!) j'aimerai savoir pourquoi la ligne DocWord.Tables(i).AutoFitBehavior wdAutoFitWindow engendre une erreur... (en sachant que c'est la ligne qui redimmensionne le tableau)
merci d'avance!

ci-join, le code entier de la macro
Sub EnvoyerTableauxExcelVersWord()
'http://www.excel-downloads.com/html/French/forum/messages/1_150196_150196.htm
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim i As Byte, j As Byte

Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
j = 2

For i = 1 To 2 'adapter en fonction du nombre de tableaux à copier
'chaque plage Excel à copier doit etre nommée 'Tableau1' , 'Tableau2' ....

Range('Tableau' & i).Copy 'copier
DocWord.Tables(i).AutoFitBehavior wdAutoFitWindow 'option d'ajustement largeur tableau

If j = 1 Then
With AppWord.Selection
.Paste 'coller
.InsertBreak Type:=wdSectionBreakNextPage 'saut de page
End With
Else
With AppWord.Selection
.Paste 'coller
.InsertBreak Type:=wdLineBreak 'saut de ligne
End With
End If


Next i

Application.CutCopyMode = False
End Sub

 

[MichelXld]

rebonjour Elo6

la ligne n'est pas placée au bon endroit ...sans doute que mes pensées étaient ailleurs ce jour là ...


Sub EnvoyerTableauxExcelVersWord_V02()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim i As Byte

Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add

For i = 1 To 2 'adapter en fonction du nombre de tableaux à copier
'chaque plage Excel à copier doit etre nommée 'Tableau1' , 'Tableau2' ....

Range('Tableau' & i).Copy 'copier

With AppWord.Selection
.Paste 'coller
.InsertBreak Type:=wdLineBreak 'saut de ligne
End With

DocWord.Tables(i).AutoFitBehavior wdAutoFitWindow

Next i

Application.CutCopyMode = False
End Sub


bonne soiree
MichelXld

ps
tu aurais du rester sur le premier fil de dsicussion car c'est plus facile pour suivre un sujet

Message édité par: MichelXld, à: 04/08/2005 18:32