Bonjour le forum,
Je souhaiterai remplir un fichier Word à partir de données d'un fichier excel (exemple joint).
Actuellement, nous imprimons deux pages excel. Le but de le mettre sous Word et de pouvoir l'imprimer sur une seule page. (Du fait de la mise en page et autre.)
J'ai effectué plusieurs recherches sur le forum mais la plupart des sujets relevant ce problème n'ont pas de réponse.
J'ai bien activé Microsoft word object library et ai renseigné un code de ce style (trouvé sur un autre forum):
Sub Suivi()
'
' Suivi Macro
'
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("SUIVI.docx") '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")
WordDoc.tables(1).Columns(2).Cells(2).Range.Text = Range("C1")
WordDoc.tables(1).Columns(2).Cells(3).Range.Text = Range("K1"))
Ce code ne fonctionne pas.
Pourriez-vous me donner des pistes SVP ?
Clément.