je suis en stage actuellement et on m'as demandé de faire une macro qi sélectionne des données fait des calculs avec et les colle dans word
mon probleme est que j ai de nombreux tableau à rentrer et je n'arrive à mettre à la bonne échelle qu'un seul tableau.
si vous pouviez m'aider dans mon script, le voici:
(je ne met que le collage pour ne rien embrouiller)
For i = 1 To counter
'selection de la bonne feuille
Windows("doctest2").Activate
ActiveWorkbook.Worksheets("Pression" & i).Select
'selection du bon range
Range("A1", Range("C3").End(xlDown)).Copy
'collage dans word
objWord.Selection.Paste
'redimension du tableau
objWord.Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Docu.Tables(1).Select
Selection.Style.Font.Size = 10
'permet d'aller apres le tableau et de faire un saut de page
objWord.Selection.WholeStory
objWord.Selection.MoveRight , Extend:=0
objWord.Selection.InsertBreak (7)
Application.CutCopyMode = False
Next
voila si vous pouvez m'aider parceque ça fait deux bonnes journées que je reste bloqué dessus et que je ne trouve pas la solution