Importer document Word dans feuille Excel

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

vba
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook

Set Wb = Workbooks.Add(1)
Set WordApp = New Word.Application
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open("monDocument.doc", ReadOnly:=True)

With WordApp
.Selection.WholeStory
.Selection.Copy
End With

Wb.ActiveSheet.Range("A1").Select
Wb.ActiveSheet.Paste
WordApp.Application.Quit
Application.CutCopyMode = False
Wb.SaveAs "C:\copieDocument.xls"

Cliquez pour agrandir...

Cliquez pour agrandir...