contenu de word dans excel

[lolo24]

Re bonsoir le forum,
J'ai une question toute simple, mais la solution ...peut etre pas autant!

J'ai un fichier word (format .doc ou .rtf) par exemple dans c:
et un classeur excel.

Comment selectionner tout le contenu du doc word et le copier dans la feuille 1 du classeur excel, sans ouvrir le fichier word?

Merci
Lolo

 

[lolo24]

Bonjour le forum,

Personne n'a une petite idée?
J'ai cherché dans les archives mais c'est a chaque fois l'inverse.
D'une feuille ou de cellules vers une page word!!
Arfffff!Sniffff ; )

A+


Input Get open?

 

[Michel_M]

bonjour lolo24,

ci joint un doc et un xls de test-travail "pour voir si ca marche" avec macro dans excel exportant des données excel vers word et ré-important de Word vers Excel

Bon courage...

Michel

 

[lolo24]

Merci bien michel, c'est sympa!

Mais Le transfert se fait de excel vers word (mais pas le contraire).
Et le doc s'ouvre....

A moins que j'ai mal regardé!!
A bientôt
et merci encore de ton aide.

Lolo

 

[Michel_M]

Re Lolo


Je viens de ré-essayer suite à ton post (c'est assez vieux de quelques mois cet essai)

c'est la variable retour qui renvoie "reste zen" de Word à Excel

Mais j'ai du réinitialiser formfield "texte1" avec la barre d'outils formulaire

as tu installé les librairies indiquées en début de macro?

Michel

 

[lolo24]

Non je n'ai pas installé les librairies,car apparemment le fichier word s'ouvre, alors que moi je ne veux surtout pas qu'il s'ouvre!
Sinon je ne vois pas trop l'interet!
Merci quand même Michel

Comment selectionner tout le contenu du doc word et le copier dans la feuille 1 du classeur excel, sans ouvrir le fichier word?

 

[michel]

bonjour Michel , bonjour Lolo

je ne connais pas la technique pour recuperer les donnees sans ouvrir word .
par contre on peut masquer Word pendant le traitement de la macro en ecrivant :

AppWord.Visible = False

ci joint un autre exemple à tester
comme pour la Demo de Michel , cela necessite d'activer les librairies adequates

bon week end
michel

 

[lolo24]

Bonjour " les" michel,

Voici le code qui marche sans activer les librairies:

Sub Bouton1_QuandClic()
Dim Wrd As Object

Application.ScreenUpdating = False

Set Wrd = CreateObject("word.Application")
Wrd.Visible = False
Wrd.documents.Open ("C:\1.rtf")
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Range("A2").Select
ActiveSheet.Paste

Wrd.Application.Quit


End Sub


Merci a vous
A bientot
lolo