Discussion :

[laurent27530]

Bonjour je cherche a envoyer dans un signet Word le résultat d'un tableau filtré
Or je n'arrive pas a lui envoyer que les cellules active de ma plage.

Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Windows(source).Activate
Sheets("tableau").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=7, Criteria1:=periode
ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=8, Criteria1:=produit
Range("A1:E65000").Select
Selection.Copy
AppWord.ActiveDocument.Bookmarks("TEST2").Range.PasteSpecial
Application.CutCopyMode = False

Bonjour,
J'arrive a exporter mais je veux exporter que de A a E

Merci pour votre aide

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("tableau").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=7, Criteria1:=periode
ActiveSheet.Range("$A$1:$H$1").AutoFilter Field:=8, Criteria1:=produit
Range("A1:E1000").Select
Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
rngSelect.Copy
 
AppWord.ActiveDocument.Bookmarks("TEST2").Range.PasteSpecial
Application.CutCopyMode = False

[Philippe Tulliez]

Bonjour,
Le problème provient de la propirété CurrentRegion de l'objet Range (Ici ActiveCell) dans l'instruction qui suit.

Code :

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

ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)

qui est l'équivalent d'un Ctrl + '*' ou Ctrl + 'A' depuis la cellule active qui est pour ton cas la cellule A1.
C'est à dire que tu sélectionnes à nouveau toute la plage.

Exemple qui fonctionne avec la copie des cellules visibles de la plage A1:E10000 de la feuille nommée [db] vers la cellule A1 de la feuille nommée [Feuil1]

Code :

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

1
2
Set rngSelect = ThisWorkbook.Worksheets("db").Range("A1:E1000").SpecialCells(xlCellTypeVisible)
rngSelect.Copy ThisWorkbook.Worksheets("Feuil1").Range("A1")

A adapter pour la copie vers word.

[laurent27530]

Merci pour ton aide en revanche il me prend les 1000 lignes et non pas le résultat de mon filtre

[Philippe Tulliez]

Bonjour,
C'est exact, j'ai voulu mettre l'accent sur le problème et n'ai pas été plus loin pour la copie.
Utilise la propriété CurrentRegion, Suivi de Resize
Même exemple rectifié

Code :

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

1
2
Set rngSelect = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion.Resize(ColumnSize:=5).SpecialCells(xlCellTypeVisible)
rngSelect.Copy ThisWorkbook.Worksheets("Feuil1").Range("A1")

[laurent27530]

Un seul mot me vient RESPECT
Un grand merci il me reste plus a l'adapter a mes exports et trouver la solution pour qu' il s'adapte a la largeur de word.