Bonjour,

je n'arrive pas a ajuster les données a la largeur de la page word

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
   Windows(source).Activate
   Sheets("A VENIR").Select
   Range("A1").Select
   Selection.AutoFilter
   ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=6, Criteria1:="=*" & tutu & "*"
   Set rngSelect = Range("A1:H10000").CurrentRegion.Resize(ColumnSize:=5).SpecialCells(xlCellTypeVisible)
   rngSelect.Copy
 
   'Coller les données dans Word
   AppWord.ActiveDocument.Bookmarks("T2").Range.PasteSpecial  wdAutoFitWindow = True
   Application.CutCopyMode = False
Merci pour votre aide