Discussion :

[simon.edouard]

Bonjour à tous,

Je cherche à exporter des données d'un document excel vers un document word :
J'ai un dossier "/" dans lequel j'ai deux fichier :
- Un document excel "note de calcul" dans lequel j'ai des données qui se calculent automatiquement, j'ai nommé les cellules que je souhaitait exporter (par exemple "donnee1"
- Un document Word type gabarit dans lequel je souhaite importer les valeurs de mon document excel. Pour cela j'ai créé des "ChampFusion" du nom des données à importer.

Ma question est donc, comment créer un automatisme (par excel grace à VBA je suppose) qui puisse exporter les données des cellules du document excel vers le document word.
J'ai trouver des choses évidemment déjà mais à chaque fois en utilisant les signets de Word, ce qui n'est pas très pratique pour moi.

Je vous remercie à tous par avance

[hyperion13]

Vous pourriez faire un publipostage ou faire un copier/coller avec liaison vers Word.
Peut-être faudra-t-il créer un tableau intermédiaire avec les cellules nécessaires pour Word.

[Menhir]

J'ai trouver des choses évidemment déjà mais à chaque fois en utilisant les signets de Word, ce qui n'est pas très pratique pour moi.

Perso, j'ai testé plusieurs solution quand j'ai du faire ça pour la première fois et c'est la solution des signets qui m'a parue la plus pratique.

Dans VBA, je fais une variable tableau string avec les noms de signets Word dans l'indice 1 et les références de cellules correspondant dans l'indice 2.
Une boucle For To limité par un UBound de ce tableau et roule ma poule, ça se transfert presque tout seul.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DocDest.Bookmarks(Change(1, I)).Range.Text = OngletSource.Range(Change(2, I)).Text

Si dans ton cas, tu as nommé les cellules concernées et qu'elles ont le même nom que les bookmarks, ce sera encore plus simple : pas besoin de tableau de correspondance, il suffit de scruter la collection des bookmark.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each BM In DocDest.Bookmarks        ' On scrute tous les signets du document Word
    BM.Range.Text = OngletSource.Range(BM.Name).Text
Next BM

Difficile de faire plus simple et plus souple.

[simon.edouard]

Perso, j'ai testé plusieurs solution quand j'ai du faire ça pour la première fois et c'est la solution des signets qui m'a parue la plus pratique.

Dans VBA, je fais une variable tableau string avec les noms de signets Word dans l'indice 1 et les références de cellules correspondant dans l'indice 2.
Une boucle For To limité par un UBound de ce tableau et roule ma poule, ça se transfert presque tout seul.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DocDest.Bookmarks(Change(1, I)).Range.Text = OngletSource.Range(Change(2, I)).Text

Si dans ton cas, tu as nommé les cellules concernées et qu'elles ont le même nom que les bookmarks, ce sera encore plus simple : pas besoin de tableau de correspondance, il suffit de scruter la collection des bookmark.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each BM In DocDest.Bookmarks        ' On scrute tous les signets du document Word
    BM.Range.Text = OngletSource.Range(BM.Name).Text
Next BM

Difficile de faire plus simple et plus souple.

Super je vais essayer de cette façon

[clementmarcotte]

Bonjour

Bonjour à tous,

Pour cela j'ai créé des "ChampFusion" du nom des données à importer.
Je vous remercie à tous par avance

Ceux-là sont pour le publipostage. Par contre, il y a aussi le champ BaseDeDonnées. Ce n'est pas garanti, mais cela pourrait peut-être marcher dans ton cas.

P.S. Word a un raccourci-clavier (que j'ai oublié) pour mettre les champs à jour.