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 43 44 45 46 47 48
| Sub Formulaire()
Dim Dte As Date
Dim j As Byte, m As String
Dim a As Integer
Dim way As Variant
Dim way1 As Variant
Dte = Sheets("OFFRE DAT").Cells(16, 3)
way = Sheets("DAT").Cells(3, 21)
way1 = Sheets("DAT").Cells(3, 20)
j = Day(Dte)
j1 = Format(j + 1, "dd")
mee = Sheets("DAT").Cells(3, 1)
m = Format(mee, "mmmm")
a = Year(Dte)
Dim oWdApp As Object
Dim oWdDoc As Object
ligne = ActiveCell.Row
Sheets("OFFRE DAT").Activate
relation = Sheets("OFFRE DAT").Cells(9, 5)
If Len(Dir(way1, vbDirectory)) = 0 Then
MkDir way1
End If
If Len(Dir(way, vbDirectory)) = 0 Then
MkDir way
End If
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Open("\\Srv-p-fichier\sdm\Tréso\Tréso Devise\Template placement.docx")
oWdApp.Visible = True
Range("A1:H50").Copy
oWdApp.Selection.PasteAndFormat (13)
Application.CutCopyMode = False
oWdApp.Visible = True
oWdApp.Selection.TypeParagraph
oWdApp.ActiveDocument.SaveAs Filename:=way & "DAT" & "_" & relation & "(" & j1 & "-" & m & "-" & a & ")" & ".docx"
End Sub |
Partager