Bonjour,

j'essaye d'envoyer le contenu d'une selection vers un signet dans word

Je n'arrive qu'a exporter la premiere ligne, pouvez vous me dire pourquoi ?


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
17
18
19
20
21
22
23
24
25
26
27
Sub E_2_Exemple()
'
' E_2_Exemple
    Dim AppWord As New Word.Application
    Dim MonFichierWord As String
    Dim CLIENT As String
    CLIENT = [B4]
    MonFichierWord = [C13]
 
   AppWord.Documents.Open MonFichierWord
   AppWord.Visible = True    'Word est visible pendant l'opération
'
    Windows("TEST.xlsx").Activate
    Range("A1:D1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$D$4000").AutoFilter Field:=4, Criteria1:=Array(CLIENT), Operator:=xlFilterValues
    Range("A1:D27").Select
    Range("D27").Activate
    Selection.Copy
 
    AppWord.ActiveDocument.Bookmarks("Monsignet3").Range.PasteSpecial , DataType:=wdPasteDefault
    Application.CutCopyMode = False
 
    Windows("TEST.xlsx").Activate
    Range("A1:D1").Select
    Selection.AutoFilter
End Sub
Merci d'avance