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 ?
Merci d'avance
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
Partager