Ferme le classeur spécifié
#include <Excel.au3>
_Excel_BookClose ( $oWorkbook [, $bSave = True] )
$oWorkbook | Objet Workbook, classeur Excel |
$bSave | [optionnel] Si True le classeur est enregistré avant la fermeture (par défaut = True) |
Succès: | Retourne 1. |
Échec: | Retourne 0 et définit @error <> 0 |
@error: | 1 - $oWorkbook n'est pas un objet ou n'est pas un objet classeur 2 - Une erreur s'est produite lors de l'enregistrement du classeur. @extended contient le code d'erreur retourné par le COM Procédé Language 3 - Une erreur s'est produite lors de la fermeture du classeur. @extended contient le code d'erreur COM retourné par la méthode Close |
_Excel_BookAttach, _Excel_BookNew, _Excel_BookOpen, _Excel_BookOpenText
#include <Excel.au3> #include <MsgBoxConstants.au3> ; Crée un objet Excel Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookOpen-Exemple", "Erreur lors de la création de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; ***************************************************************************** ; Crée un nouveau classeur, écrit des données et le ferme sans le sauvegarder ; ***************************************************************************** ; Crée le nouveau classeur Local $oWorkbook = _Excel_BookNew($oExcel) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookClose-Exemple", "Erreur lors de la création d'un nouveau classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Écrit un mot dans la cellule A1 _Excel_RangeWrite($oWorkbook, Default, "Test", "A1") If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookClose-Exemple", "Erreur lors de l'écriture dans la cellule 'A1'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox(64, "UDF Excel: _Excel_BookClose-Example", "Cliquez OK pour fermer le classeur sans le sauvegarder.") ; Ferme le classeur sans le sauvegarder _Excel_BookClose($oWorkbook, False) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookClose-Exemple", "Erreur lors de la sauvegarde du classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookClose-Exemple", "Le classeur a été fermé avec succès.")