Populer une template word a partir d'un classeur excel

Fermé
Rgt78 Messages postés 8 Date d'inscription vendredi 25 novembre 2016 Statut Membre Dernière intervention 1 novembre 2017 - 17 oct. 2017 à 15:42
Rgt78 Messages postés 8 Date d'inscription vendredi 25 novembre 2016 Statut Membre Dernière intervention 1 novembre 2017 - 26 oct. 2017 à 10:30
Bonjour à tous,

Voilà mom problème; j'ai un classeur excel avec des données qui vont se mettre à jour. Je souhaite populer une template word avec les informations d'une feuille contenues dans les cellules B2; B4; B6; B8 etc... puis la sauver dans un dossier nouveau à chaque fois.

J'ai crée mes bookmarks que j'ai nommés dans ma template, et maintenant je cherche à écrire le code qui va remplir chaque bookmark avec chaque celulle. Je galère un peu. Ensuite pour sauver dans le bon dossier sous le bon nom je devrai avoir un exemple dans des macros qu'on a et qui font deja cela.

Si quelqu'un pouvait m'aider ce serai top?

Merci
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
17 oct. 2017 à 16:01
Bonjour,

cela tombe bien, je viens de faire un exemple sur ce post:

https://forums.commentcamarche.net/forum/affich-34928807-ouvrir-et-ecrire-dans-un-document-word#7
1
Rgt78 Messages postés 8 Date d'inscription vendredi 25 novembre 2016 Statut Membre Dernière intervention 1 novembre 2017
17 oct. 2017 à 16:36
Bonjour,

Merci beaucoup, j'aime bien la solution replace car ca garde le formating de word.
Le seul truc c'est que ma template est un document relativement long ou les champs à populer ne sont pas forcement des "Champs:" ca peut aussi etre des milieu de phrase.
Je vais essayer d'adapter.

Cela fonctionne avec des cellules excel dans lesquelles il y a des formules type VLOOKUP?

Merci encore pour votre aide
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Rgt78 Messages postés 8 Date d'inscription vendredi 25 novembre 2016 Statut Membre Dernière intervention 1 novembre 2017
17 oct. 2017 à 16:44
Désolé, les formules ce n'est pas mon fort :-(

@+
0
Rgt78 Messages postés 8 Date d'inscription vendredi 25 novembre 2016 Statut Membre Dernière intervention 1 novembre 2017
26 oct. 2017 à 10:30
Bon j'ai reussi avec ca:

.Application.Selection.Find.Text = "<<City>>"
.Application.Selection.Find.Execute
.Application.Selection = Range("B35")
.Application.Selection.EndOf

En mettant des balises <<texte>> dans ma template c'est pas mal.

Merci
0