contenu de word dans excel

  • Initiateur de la discussion lolo24
  • Date de début
L

lolo24

Guest
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
 
L

lolo24

Guest
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?
 
M

Michel_M

Guest
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
 

Pièces jointes

  • excel_word_aller_retour.zip
    14.1 KB · Affichages: 74
L

lolo24

Guest
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
 
M

Michel_M

Guest
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
 
L

lolo24

Guest
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?
 
M

michel

Guest
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
 

Pièces jointes

  • ImportWordExcel.zip
    11.4 KB · Affichages: 200
L

lolo24

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T