Populer une template word a partir d'un classeur excel
Rgt78
Messages postés
9
Statut
Membre
-
Rgt78 Messages postés 9 Statut Membre -
Rgt78 Messages postés 9 Statut Membre -
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
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
2 réponses
-
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
-
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
-
-
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
