Discussion :

[neflerine]

Bonjour,

Je tente une copie de petits tableaux d'Excel vers Word qui marche très bien, mais ca me réécrit par dessus sur Word a chaque lancement de la macro.

J'ai une plage A1:C10 qui change et j'aimerais ecrire sur Word en sautant une ligne a chaque fois que je lance la macro.
A chaque passage sur .PasteExcelTable False, False, False mon tableau d'avant est effacé et le nouveau est écrit par dessus...
Merci d'avance pour votre soutien

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
 
Sub ExcelWordPaste()
 
Dim objWord As Object
Dim objDoc As Object
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
 
Range("A1:C10").Copy
 
Set objDoc = objWord.documents.Add
With objDoc.Range
    .PasteExcelTable False, False, False
    .Tables(1).AutoFitBehavior 2 'wdAutoFitWindow
    .InsertAfter vbCr
End With
End Sub

EDIT : J'ai oublié de dire qu'au final ma plage ne sera pas fixe mais du style Range(Cells(1,1),Cells(ligne_variable, col_variable))

[neflerine]

Rebonjour,
J'ai trouvé la solution, donc je la donne :

.Range correspond au document Word entier
Pour ecrire à la suite il faut utiliser .Paragraphs.Last.Range quand on utilise l'objet Word Application

EDIT : Par contre .Tables(1).AutoFitBehavior 2 'wdAutoFitWindow me pose toujours problème, si je met autre chose que 1 dans Tables, ca ne fonctionne plus?