Importer document Word dans feuille Excel

[bibiphoqie]

Bonjour,

j'ai trouvé ce code sur internet pour "importer la totalité d'un document word sur une 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"

J'ai essayé de lancer cette macro mais cela me donne une erreur de compilation à la ligne:
Dim WordDoc As Word.Document
L'erreur dit: "type défini par l'utilisateur non défini".

Pourriez-vous m'aider?? (je n'ai pas compris ce que voulais dire "Nécessite d'activer la référence "Microsoft Word xx.x Object Library"", c'est peut-être la raison pour laquelle ça ne marche pas?)

Merciii

 

[Staple1600]

Re : Importer document Word dans feuille Excel

Bonjour

Dans l'éditeur VBE tu dois cocher cette référence

Outils/Références

et ensuite ca devrait fonctionner

 

[bibiphoqie]

Re : Importer document Word dans feuille Excel

Oui en effet, merci beaucoup Staple1600

 

[bibiphoqie]

[modification] Importer document Word dans feuille Excel

Re bonjour,

Je voudrais faire un petit changement dans le code trouvé sur internet. En fait cette macro permet d'importer un document word dans un nouveau fichier excel, alors que je voudrais importer le document word dans un nouvel onglet de mon fichier excel...
J'ai essayé de remplacer "Workbooks" par "Worksheets" mais je m'en sors pas trop.
Si vous avez la réponse n'hésitez pas

Merci