Sub DonnéesWordVersExcel()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word (Fichier.doc) et effectue une copie des données
Set DocWord = AppWord.Documents.Open(ThisWorkbook.Path & "\Reclamations.docx", ReadOnly:=True)
With AppWord
.Selection.WholeStory
.Selection.Copy
End With
' Copie des données dans Excel
ThisWorkbook.Worksheets("Sheet3").Range("A1").Select
ActiveSheet.Paste
' Fermeture de Word
AppWord.Application.Quit
Application.CutCopyMode = False
End Sub