Transformer un document word en feuille excel

[Celine]

Bonjour,
J'ai un document word qui concerne la documentation de mon outil developpé à partir de excel.
Comment puis-je faire pour transformer ce document word en feuille excel?
Je vous remercie d'avance.

 

[MichelXld]

bonjour Celine

tu peux tester

Sub ImporterWordVersExcel()
'necessite d'activer la reference microsoft word 10.0 Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim Wb As Workbook

Set Wb = Workbooks.Add(1)
Set AppWord = New Word.Application
AppWord.Visible = False
Set DocWord = _
AppWord.Documents.Open('C:\\monDocument.doc', ReadOnly:=True)

With AppWord
.Selection.WholeStory
.Selection.Copy
End With

Wb.ActiveSheet.Range('A1').Select
Wb.ActiveSheet.Paste
AppWord.Application.Quit
Application.CutCopyMode = False
Wb.SaveAs 'C:\\copieDocument.xls'
End Sub

bon apres midi
MichelXld