Populer une template word a partir d'un classeur excel

Rgt78 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Rgt78 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   729 > Rgt78 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Désolé, les formules ce n'est pas mon fort :-(

@+
0
Réponse 2 / 2
Rgt78 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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