1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Sub ExportDonneesDansSignetsWord()
Dim nom As String
Dim l As Integer
Dim Message
Set WordApp = CreateObject("Word.Application") ' ouvre une session word
WordApp.Visible = False ' word est masqué pendant l'opération
For l = 14 To 16 Step 1
Set WordDoc = WordApp.Documents.Open("C:\Users\jersen\Desktop\ge neration fiche d'argrement\materiaux.doc") ' ouvre le document word : generation fiche d'argrement.doc
WordApp.Visible = False ' word est masqué pendant l'opération
nom = Cells(l, 3).Value 'repere le nom du nouveau fichier dans la cellule
WordDoc.Bookmarks("affaire").Range.Text = Cells(5, 3)
WordDoc.Bookmarks("approbateur").Range.Text = Cells(9, 3)
WordDoc.Bookmarks("bpu1").Range.Text = Cells(l, 5)
WordDoc.Bookmarks("bpu2").Range.Text = Cells(l, 7)
WordDoc.Bookmarks("bpu3").Range.Text = Cells(l, 9)
WordDoc.Bookmarks("bpu4").Range.Text = Cells(l, 11)
WordDoc.Bookmarks("bpu5").Range.Text = Cells(l, 13)
WordDoc.Bookmarks("cctp1").Range.Text = Cells(l, 4)
WordDoc.Bookmarks("cctp2").Range.Text = Cells(l, 6)
WordDoc.Bookmarks("cctp3").Range.Text = Cells(l, 8)
WordDoc.Bookmarks("cctp4").Range.Text = Cells(l, 10)
WordDoc.Bookmarks("cctp5").Range.Text = Cells(l, 12)
WordDoc.Bookmarks("chrono").Range.Text = Cells(l, 17)
WordDoc.Bookmarks("classement").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("emeteur").Range.Text = Cells(l, 15)
WordDoc.Bookmarks("fournisseur").Range.Text = Cells(l, 14)
WordDoc.Bookmarks("indice").Range.Text = Cells(l, 19)
WordDoc.Bookmarks("marche").Range.Text = Cells(16, 3)
WordDoc.Bookmarks("materiaux").Range.Text = Cells(l, 3)
WordDoc.Bookmarks("numero").Range.Text = Cells(l, 2)
WordDoc.Bookmarks("redacteur").Range.Text = Cells(7, 3)
WordDoc.Bookmarks("type").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("verificateur").Range.Text = Cells(8, 3)
ActiveDocument.SaveAs "C:\Users\jersen\Desktop\generation fiche d'argrement\" & nom & ".doc"
ActiveDocument.close
Next l
End Sub |
Partager