Importer document Word dans feuille Excel

  • Initiateur de la discussion Initiateur de la discussion bibiphoqie
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bibiphoqie

XLDnaute Nouveau
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
 
[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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
5
Affichages
639
Retour