Fichier Excel pilotant formulaire Word

[Oliv2721]

Bonjour,

Actuellement, j'enregistre des données sur un fichier Excel (permettant de faire des stats) et chaque ligne enregistrée doit ressortir sur une formulaire prédéfini sur word (pas de possibilité de faire le formulaire sur word). Comment puis-je le piloter en un clic ?

 

[david84]

Re : Fichier Excel pilotant formulaire Word

Bonjour,
ci-joint une macro repérée https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/ que tu peux adapter à ton cas :

Sub exportValeursExcelVersTableWord()
'Necessite d'activer la reference Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = createObject("word.application")
wordApp.Visible = True 'mettre False pour garder Word masqué
Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc") 'ouvre le document Word
'Tables(2) correspond au 2eme tableu du document Word
'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne
wordDoc.Tables(2).Columns(1).Cells(3).Range.Text = Range("A1")
'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne
wordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("A2")
'wordDoc.Close True 'ferme le document Word en enregistrant les modifications
'wordApp.Quit 'ferme l'application Word
End Sub

Bon courage pour la suite.
A+

 

[Grand Chaman Excel]

Re : Fichier Excel pilotant formulaire Word

Bonjour,
En complément, voici un lien (en anglais) qui montre comment imprimer dans Word des données provenant de Excel avec la méthode du publipostage...

Printing Excel data via a Word Document | Chandoo.org - Learn Microsoft Excel Online

A+