Discussion :

[laurent27530]

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

[PMO2017]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laurent27530]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

Alors peut être avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 AppWord.ActiveDocument.Tables(1).Range.AutoFitBehavior 1                          'wdAutoFitContent

[laurent27530]

Meme message d'erreur

[laurent27530]

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

j'ai tente sans succes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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