Discussion :

[maxmax18]

Bonjour,

Je souhaite à l'aide d'une macro remplacer du texte word par du texte présent dans un tableau excel en colonne B. Les mots à remplacer sont en colonne A sur le fichier excel.

Je vous joint un fichier pour vous aider. A savoir que pour mon entreprise j'ai un fichier pré remplie auquel il faut remplacer certain mots et que cela est très fastidieux. Le rédacteur ne voulant pas changer son format...
Mot à remplacer.docxMot.xls

Merci.

[piotr76]

Bonjour

1)Il existe le publipostage en partant de Word avec des données dans Excel
2)En partant d'Excel, il faut mettre des signets dans le .docx et piloter Word avec Excel avec "CreateObject("Word.application))"
La méthode 1 est vraiment très facile sans macro. L'aide de Microsoft est , pour cette fois, suffisante.
La méthode 2 (que je préfère) est abondamment documentée dans "developpez.com" (C'est là que j'ai appris)

Cordialement

[Menhir]

Ta question impliques trois problèmes différents :
1- Accéder à Word depuis Excel
2- Trouver un mot dans Word par macro
3- Transférer une valeur d'une cellule Excel vers un texte Word

Pour le premier point, il faut que tu charges dans Excel les bibliothèques d'objets Word.
Dans l'éditeur VBA Excel :
Outils > Références > Cocher "Microsoft Word XX Object Library"
Ca te permettra d'accéder aux commandes Word depuis Excel.
Il est possible de faire l'inverse (utiliser les commandes Excel dans une macro Word) mais perso je trouve que c'est moins pratique.

Pour trouver un mot dans un texte Word par macro, c'est plus coton que dans Excel avec ses cellules numérotés.
En gros, je vois deux solutions (il y en a sans doute beaucoup d'autres).
La plus simple et la moins propre est de mettre comme mot à chercher un truc improbable (du style "XZADEKW") et de lancer une recherche dessus.
La seconde, que je te conseille, est de placer un signet sur le mot (ou le groupe de mot) à changer et d'utiliser les objets Bookmark. Cette méthode est bien plus propre et je te la conseille.

Pour transférer une valeur d'une feuille Excel vers un texte Word, le plus simple est de passer par une variable de type String : tu mets le contenu de la cellule dans la variable et ensuite tu mets le contenu de la variable à la place du contenu du signet Word.
Il est bien sûr possible de faire ça en une seule ligne mais je trouve que c'est plus confus à lire (chacun ses goûts).