Remplir un fichier word a partir de Excel

Version imprimable

15/12/2011, 19h43
Mimosa777

2 pièce(s) jointe(s)

Remplir un fichier word a partir de Excel

Bonjour a tous et a toutes,

j'ai vraiment besoin de votre aide pour me guider ou me donner une piste sur comment je pourrai faire pour automatiquement remplir dans une vingtaine de fichier word 3 sections a partir de mon fichier excel qui contient les données a utilisés.

Pour etre plus simple, voici en fichier joint mon fichier excel contenant les données et un gabarit word dans lequel je devrais remplir automatiquement les champs vide (en jaune) a partir de mon fichier excel.

J'aimerais pouvoir faire cela pour environ 25 fichiers word qui ont le meme gabarit mais que les données seront différentes dans chaque fichier word car cela depend du titre du fichier word.

Est-ce possible en VBA Excel et si oui, me donner une piste svp.

Merci
15/12/2011, 20h27
Mimosa777

C'est bon j'ai trouvé comment grace au tutoriel de ce forum.. merci merci:ccool:
16/12/2011, 09h15
Chtulus

Bonjour,

Le lien vers le tuto aurait été utile pour ceux qui cherchent ;)
16/12/2011, 19h00
Mimosa777

Excusez moi,

voici le lien : http://vb.developpez.com/faqvba/?pag...portdataSignet

:?:mouarf:
18/06/2018, 16h12
BenFullThrottle

Bonjour Mimosa777
Je sais que j'arrive un peut tard mais comme on dis, vaut mieux tard que jamais.

Est ce que tu peux mettre ta solution en ligen car je recherche à faire la même chose que toi, et que pour le moment je n'arrive pas à mes fins.

Est ce que les macros sont dans XLS ou .doc?
Est ce que tu sais si c'est possible d'exporter que la ligne sélectionné dans XLS vers les champs Word?

Dans l'attente de vous lire.
Merci
Ben

Salut Ben,

voici le code que j'ai utilisé, aussi simple que ca. Le code va dans Excel qui permet l'ouverture du fichier word en question et ajoute les données dans les signets crées dans Word.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

Si tu veux le faire simultanement pour plusieurs fichiers word, tu as juste a ajouter une boucle pour le nombre de fichier word que tu as.

J'espere que ca va t'aider.

Merci

19/06/2018, 11h54
BenFullThrottle

Merci Mimosa777

Mais dans ton code tu utilises les signets qui sont présent dans ton document word? Je pensais que tu utilisé le publipostage.
En parallèle j'ai trouvé un autre code sur le forum, mais je n'arrive pas à le faire fonctionner.

Dès que j'ai du nouveau je vous informe.
Merci
Ben