Contenu du vbs :
Dim objExcel
Dim objWorkbook
Set objExcel = CreateObject("excel.application")
Set objWorkbook = objExcel.Workbooks.Open("c:\Scripts\MonFichier.xls ")
objWorkbook.RunAutoMacros 1 'xlautoopen
objExcel.Run ("Macro1")
objExcel.Visible = True
Contenu de la macro :
Sub Macro1()
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A20").Select
Range("A1").Select
End Sub
|