Bonjour tout le monde,
Après de nombreuses recherches je reviens vers vous pour mon problème.
J'ai un fichier excel avec des données que je voudrais insérer dans un document word. Dans ce .doc j'ai déjà réussi à insérer des données dans un tableau sans problème, mais je ne sais pas comment insérer des données à une place spécifique dans le texte du document word.
En rouge le code que je voudrais changer pour que ca marche
Merci à tous ceux qui se pencheront sur le sujet
IaN
Après de nombreuses recherches je reviens vers vous pour mon problème.
J'ai un fichier excel avec des données que je voudrais insérer dans un document word. Dans ce .doc j'ai déjà réussi à insérer des données dans un tableau sans problème, mais je ne sais pas comment insérer des données à une place spécifique dans le texte du document word.
Code:
Sub facture()
Windows("fichier excel1.xlsm").Activate
Dim An As String
An = Cells(2, 16).Value
Mo = Cells(2, 17).Value
Mo1 = Mo + 1
Windows("fichier excel 2.xls").Activate
Sheets("feuille1").Select
'Ouverture du document .doc pour la facture
'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:document word à remplir.doc") 'ouvre le document Word
'remplissage de la facture
'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
[COLOR="Red"] 'Date du jour en entête
WordDoc.Rows(1).Range.Text = Format(Now, "dd/mm/yyyy")[/COLOR]
'Date dans le tableau
WordDoc.Tables(2).Columns(3).Cells(1).Range.Text = "01." & Mo & "." & An & " - " & "01.0" & Mo1 & "." & An
'Données production dans le tableau
WordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("C32")
WordDoc.Tables(2).Columns(3).Cells(3).Range.Text = Range("C33")
WordDoc.Tables(2).Columns(3).Cells(4).Range.Text = Range("C34")
WordDoc.Tables(2).Columns(3).Cells(5).Range.Text = Range("C35")
WordDoc.Tables(2).Columns(3).Cells(6).Range.Text = Range("C36")
'WordDoc.Close True 'ferme le document Word en enregistrant les modifications
En rouge le code que je voudrais changer pour que ca marche
Merci à tous ceux qui se pencheront sur le sujet
IaN