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))