XL 2013 Export données vers Word

Lone-wolf

XLDnaute Barbatruc

• 7 Avril 2017

• #2

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Avril 2017

• #3

Re

Ton fichier corrigé avec le doc word.

 

Pièces jointes

• Dossier.zip

  22.2 KB · Affichages: 29

Vote positif 0 Vote négatif

G

guillaum

XLDnaute Junior

• 7 Avril 2017

• #4

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!

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Avril 2017

• #5

Bonjour guillaum

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

 

Pièces jointes

• Nouveau dossier.zip

  244.2 KB · Affichages: 29

Vote positif 0 Vote négatif

G

guillaum

XLDnaute Junior

• 18 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #7

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

 

Dernière édition: 19 Avril 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #8

Re

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

 

Pièces jointes

• E-W-V3.xlsm

  52.8 KB · Affichages: 36

Dernière édition: 19 Avril 2017

Vote positif 0 Vote négatif