Copie de Word vers Excel

Question

Bonjour à toutes et à tous !
Je désirerais construire une petite macro me permettant de copier du texte contenu dans Word et de le coller dans un fichier Excel. Voici le code que j'essaie de faire touner et qui ne fonctionne pas ....pouvez vous m'aider ?
Merci d'avance,
Nicolas

Sub CopierWordVersExcel()

    Set wrd = CreateObject("Word.Application")
    wrd.Documents.Open Filename:="C:\MonChemin\MonDocument.doc"
    wrd.Selection.WholeStory
    wrd.Selection.Copy
    
    Set exl = CreateObject("Excel.Application")
    exl.Workbooks.Add
    exl.Sheets(1).Range("A1").Select
    Selection.Paste
    
    wrd.Quit
    
End Sub

cs_PROGRAMMIX · Answer

Où est-ce que ça coince ?
Y a-t-il des messages d'erreur ?
Que contient ton document ?
Veux-tu vraiment copier tout le contenu de ton document dans la cellule A1 ?
N'aurais-tu pas intérêt à travailler dans le VBA de word afi d'exporter ?

Je ne sais si tout fonctionne mais personnellement, plutôt que le COPY et PASTE, je travaillerais avec une variable :

(...)
wrd.Selection.WholeStory
MonTexte = wrd.Selection

(...)
exl.Sheets(1).range("A1").Formula = MonTexte

'Et le code pour enregistrer avec de quitter ???

wrd.Quit
exl.Quit
Programmix

Copie de Word vers Excel

1 réponse

Discussions similaires