Extraire du texte d'Excel => Word

[RMYX]

Bonjour le forum B)

j'èspère que tout le monde va bien derrière son écran d'ordinateur et n'est pas trop dégouté de ne pas pouvoir profiter du soleil qu'il y a dehors B)

Bon puisque vous êtes tous la, vous allez pouvoir m'aider 😉

je souhaite récuperer des informations contenues dans des cellules d'excel et m'en servir pour remplir des champs d'un formulaire word. Le problème c'est que je ne sais vraiment comment 'sauter' d'une appli à l'autre.

Merci pour vos conseils.

 

[MichelXld]

bonjour RMYX

s'il s'agit d'un travail répétitif , tu peux regarder du coté du publipostage

sinon une autre possibilité :
la macro ci dessous ouvre un document Word qui contient un signet nommé 'monSignet' , et y insère la donnée contenue dans la cellule A1

Sub miseAjourSignetDocWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.document

Set WordApp = New Word.Application 'ouverture session Word
WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & '\\monDocument.doc') 'ouverture document Word
WordDoc.Bookmarks('monSignet').Range.Text = Range('A1') 
End Sub

bonne soirée
MichelXld

 

[RMYX]

Quelle chance ! MichelXld lui même m'a répondu :woohoo:

et comme d'habitude il a la réponse !

Merci beaucoup pour le coup de pouce 😉