1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim ExcelObj As New Excel.Application
ExcelObj.Visible = True
With ExcelObj
.Workbooks.Add ("C:\Documents and Settings\Nadine Minet\Application Data\Microsoft\Modèles\Machaka\Facture.xlt")
.Cells(3, 12).Value = Me!Id_prestationi
.Cells(3, 12).Select
.Selection.NumberFormat = "2005-000"
.Cells(13, 3).Value = Me!Contacti
.Cells(14, 3).Value = Me!id_clienti.Value
.Cells(15, 3).Value = Me!Adresse_contacti.Value
.Cells(16, 5).Value = Me!Localitei.Value
.Cells(14, 12).Value = Me!Bon_commandei
.Cells(21, 2).Value = Me!Dureei
.Cells(21, 3).Value = Me!Type_prestationi
.Cells(22, 3).Value = ("Du " & Me!Date_debuti & " au " & Me!Date_fini) |
Partager