AutoIt Français

Code : Tout sélectionner

;===============================================================================
; Description:      Creates new workbook and returns its object identifier.
; Syntax:           $oExcel = _ExcelBookNew($fVisible = 1, $nbSheets = 3)
; Parameter(s):     $fVisible - Flag, whether to show or hide the workbook (0=not visible, 1=visible)
;                   $nbSheets - Définit le nombre de feuilles lors de la création du workbook (defaut=3)
; Requirement(s):   None
; Return Value(s):  On Success - Returns new object identifier
;                   On Failure - Returns 0 and sets @error on errors:
;                       @error=1 - Unable to create the Excel COM object
;                       @error=2 - $fVisible parameter is not a number
; Author(s):        SEO <locodarwin at yahoo dot com>/Modif 20100
; Note(s):          None
;===============================================================================
Func _ExcelBookNew($fVisible = 1, $nbSheets = 3)
    Local $oExcel = ObjCreate("Excel.Application")
    If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
    If NOT IsNumber($fVisible) Then Return SetError(2, 0, 0)
    If $fVisible > 1 Then $fVisible = 1
    If $fVisible < 0 Then $fVisible = 0
    With $oExcel
        .SheetsInNewWorkbook = $nbSheets
        .Visible = $fVisible
        .WorkBooks.Add
        .ActiveWorkbook.Sheets(1).Select()
    EndWith
    Return $oExcel
EndFunc ;==>_ExcelBookNew