Discussion :

[laurent27530]

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

[piotr76]

Bonjour

L'enregistreur de macro de Word me dit

Code :

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

1
2
    Selection.GoTo What:=wdGoToBookmark, Name:="MonSignet"
    Selection.PasteAppendTable

D'expérience, Word est assez bourrin rigoureux au niveau des macros
Donc une chose à la fois, d'abord la sélection et après la copie du tableau.

Copier d'un coup la plage sélectionnée avec

Code :

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

1
2
AppWord.ActiveDocument.Bookmarks("Monsignet3").Range.PasteSpecial , DataType:=wdPasteDefault
    Application.CutCopyMode = False

est pris comme la copie d'une chaine de caractère dans la "range" du signet
Et dès qu'il y à un caractère exotique, ce n'est plus du texte, et au revoir

Cordialement

[laurent27530]

Bonjour,

J'ai trois soucis.
Il ne me prends pas toutes mes données filtrées
Il insère en superposition (mon tableau apparait en superposition du texte en dessous de mon signet)
Les données ne sont pas ajuste a la largeur de la page

[piotr76]

Bonjour

Pour les données filtrées, a essayer en copiant le résultat d'un filtre avancé (pour avoir une plage complète)

Pour les superpositions et les ajustements, commencer par voir les "Options Word/Options avancés" le pavé "Couper copier et coller", les "Paramètres" du "Copier-coller avec gestion d'espace"

Cordialement