XL 2013 Export données vers Word

[guillaum]

Bonjour le forum!

Je cherche à exporter des données contenu dans mon fichier Excel vers un Word.

Je cherche et teste ce que je trouve à ce sujet mais bon quand on est pas doué on est pas doué!

Je vous remercie pour votre aide.

Guillaume

 

[Lone-wolf]

Bonsoir guillaum

Si tu as mis les signets dans le document, la macro fonctionne. Mais avant il faut cocher la référence Microsoft Word.

 

[Lone-wolf]

Re

Ton fichier corrigé avec le doc word.

 

[guillaum]

Merci Lone-wolf,

c'est déjà mieux que ce que j'avais mais ça mouline sans ouvrir le word!

Je planche sur le problème voir si je trouve la solution qui ne doit pas être dans le code!

 

[Lone-wolf]

Bonjour guillaum 🙂

J'ai refais le code, fais un test pour voir.

 

[guillaum]

Bonjour Lone-wolf,
merci pour ton retour et désolé pour le mien qui est tardif.
cela correspond à ce que je recherche mais je bloque sur les bookmarks!
Voici la manière dont j'ai quelque peu modifié sachant que j'ai une information sur une seconde feuille:
.Bookmarks("sign0").Worksheets("imprimer").Range.Text = [B15].Text
.Bookmarks("sign1").Worksheets("récap").Range.Text = [E2].Text

cette syntaxe n'est pas bonne et je ne vois pas comment indiquer sur quelle feuille il faut chercher les données!

Encore merci pour l'aide qui m'a déjà beaucoup aidé!

Guillaume

 

[Lone-wolf]

Bonjour Guilaume 🙂

Fait comme ceci

Dim shImp As Worksheet, shRec As Worksheet

set shImp = Sheets("Imprimer"): Set shRech = Sheets("récap")

With doc
.Bookmarks("sign0").Range.Text = shImp.Range("b15").Text
.Bookmarks("sign1").Range.Text = shRec.Range("e2").Text
End With

 

[Lone-wolf]

Re

Une nouvelle version avec sauvegarde du nom en A2(à changer pour voir), au cas où tu en aurais besoin.