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