probleme pour coller a la largeur de la page dans word

Version imprimable

Bonjour,

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

Code:

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

Bonjour,

Peut être en utilisant l'instruction signalée par des ///

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   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
 
'///
 AppWord.ActiveDocument.Bookmarks("T2").Range.AutoFitBehavior 1                          'wdAutoFitContent
'///
 
   Application.CutCopyMode = False

J obtiens le message d'erreur suivant : Membre de methode ou de donnée introuvable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   'Coller les données dans Word test1
   AppWord.ActiveDocument.Bookmarks("T2").Range.PasteSpecial  wdAutoFitWindow = True
   AppWord.ActiveDocument.Bookmarks("T2").Range.AutoFitBehavior 1                          'wdAutoFitContent
   Application.CutCopyMode = False



   'Coller les données dans Word test2
    AppWord.ActiveDocument.Bookmarks("T2").Range.AutoFitBehavior 1                          'wdAutoFitContent

 
   Application.CutCopyMode = False

12/05/2015, 13h59
PMO2017

Alors peut être avec

Code:

AppWord.ActiveDocument.Tables(1).Range.AutoFitBehavior 1 'wdAutoFitContent
13/05/2015, 07h57
laurent27530

Meme message d'erreur

si j 'ajustai les largeurs de colonnes avant de coller.

j'ai tente sans succes

Code:

1
2
3
4
5
6
7
8
   Sheets("A VENIR").Select
   Range("A1").Select
   Selection.AutoFilter
   ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=6, Criteria1:="=*" & tutu & "*"
   ActiveSheet.Columns.AutoFit
   Set rngSelect = Range("A1:H10000").CurrentRegion.Resize(ColumnSize:=5).SpecialCells(xlCellTypeVisible)
   rngSelect.Copy
 AppWord.ActiveDocument.Bookmarks("T2").Range.PasteSpecial  wdAutoFitWindow = True

il m'affiche dans mon word Columns.AutoFit