Contenu d'une page Word vers excel

Contenu d'une page Word vers excel - VB/VBA/VBS - Programmation

Marsh Posté le 24-06-2008 à 15:28:24    

Bonjour,
je souhaite créer une macro, qui ouvre un document Word, copie tout le contenu er le recopi dans une feuille excel.
 
Merci

Reply

Marsh Posté le 24-06-2008 à 15:28:24   

Reply

Marsh Posté le 24-06-2008 à 17:07:25    

Alors je vais peux être pas pouvoir t'apporter la réponse ultime à ta question, mais je peux essayer de faire avancer le schmilblick.
 
J'ai déjà été confronté au problème. De mon côté, je fonctionnais avec un document word déjà ouvert, la macro excel faisait exécuter une autre macro à word dans laquelle il y avait notamment un copier, puis après exécution de cette macro, elle collait le résultat dans une feuille excel.
 
Je sais que ce n'est pas le mieux, mais étant moi même débutant, j'ai peur de ne pas pouvoir t'aider d'avantage.
 
Tu veux le code ?

Reply

Marsh Posté le 24-06-2008 à 21:10:13    

Reply

Marsh Posté le 25-06-2008 à 07:42:03    

oui, je veux bien ton code, merci

Reply

Marsh Posté le 25-06-2008 à 10:41:00    

Merci pour les liens

Reply

Marsh Posté le 27-06-2008 à 09:21:29    

Merci pour vos réponses.
 
La macro fonctionne : ci-dessous
 
 Set WrdApp = CreateObject("Word.Application" )
        Set wrdDoc = WrdApp.Documents.Open("C:\_Work\Extraction des entités\Extraction des entités.doc" )
     WrdApp.Visible = True
     WrdApp.Selection.WholeStory
     WrdApp.Selection.Copy
     WrdApp.ActiveDocument.Close
     WrdApp.Quit
 
Je souhaiterai maintenant rajouter à ma macro, une commande qui détruit le fichier word.
 
Merci de votre aide

Reply

Marsh Posté le 27-06-2008 à 09:36:54    

Je n'ai pas testé, mais tu devrais essayer avec "kill".
 
 
J'ai trouvé ça ici : http://forum.hardware.fr/hfr/Progr [...] 1839_1.htm
 
Sinon, désolé d'avoir oublié de te passer mon code, je suis content pour toi que tu sois arrivé à ce que tu voulais.


Message édité par Kawamashi le 27-06-2008 à 09:56:24
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed