J'ai mis :
Sub ThisWorkbook()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open("K:\Developpement\Liste.doc", ReadOnly:=False)
' Copie les données Excel
ThisWorkbook.Worksheets("Feuil1" ).Column("G:G,E:E,C:C,A:A,B:B" ).Copy
' Colle les données dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
End Sub
et j'ai un pb avec le "this workbook.worksheets". Il me dit "fonction ou variable attendu"!!!! ![:( :(](https://forum-images.hardware.fr/icones/frown.gif)