je vous fais partager ici les modifications que j'ai apporté à la fonction _ExcelBookNew($fVisible = 1) de l'UDF ExcelCOM version 1.4. Pour ceux qui ne connaissent pas encore l'UDF ExcelCOM je vous renvoi le lien : http://www.autoitscript.com/forum/index ... opic=34302
Modification ExcelBookNew :
J'ai ajouté à cette fonction la prise en compte du nombre de feuille lors de la création d'un Workbook. En effet selon la configuration d'Excel des utilisateurs, la création d'un nouveau Workbook peut contenir de 1 à 255 feuilles. C'est la méthode .SheetsInNewWorkbook qui permet de spécifier ce paramètre sur l'objet Excel.
;===============================================================================
; 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