Sauvegarde le classeur sp�cifi�
#include <Excel.au3>
_Excel_BookSave ( $oWorkbook )
| $oWorkbook | Objet classeur � sauvegarder |
| Succ�s: | Retourne @extended d�finnit �: 0 - Le fichier n'a pas �t� sauvegard� parce qu'il n'a pas �t� modifi� depuis la derni�re sauvegarde ou depuis son ouverture 1 - Le fichier a �t� sauvegard� parce qu'il a �t� modifi� depuis la derni�re sauvegarde ou depuis l'ouverture |
| �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 COM |
Un classeur nouvellement cr�� doit sauvegard� avant � l'aide de _Excel_BookSaveAs().
#include <Excel.au3> #include <MsgBoxConstants.au3> ; Cr�e un objet Excel Local $oExcel = _Excel_Open() If @error Then Exit MsgBox(16, "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 l'enregistre dans @tempdir ; ***************************************************************************** ; Cr�e le nouveau classeur Local $oWorkbook = _Excel_BookNew($oExcel) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Erreur lors de la cr�ation du nouveau classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; �crit un mot dans la cellule A1 _Excel_RangeWrite($oWorkbook, Default, "Test", "A1") If Not IsObj($oWorkbook) Or ObjName($oWorkbook, 1) <> "_Workbook" Then Exit SetError(1, 0, 0) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Erreur lors de l'�criture dans la cellule 'A1'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Enregistre le classeur dans @tempdir sous le nom _Excel.xls (remplacement du fichier existant) _Excel_BookSaveAs($oWorkbook, @TempDir & "\_Excel.xls", Default, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Erreur lors de la sauvegarde du classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; �crit un mot dans la cellule B1 _Excel_RangeWrite($oWorkbook, Default, "2nd Test", "B1") If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Erreur lors de l'�criture dans la cellule 'A1'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Enregistre le classeur modifi� _Excel_BookSave($oWorkbook) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Erreur lors de la sauvegarde du classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSave-Exemple 1", "Le classeur a �t� sauvegard� avec succ�s sous le nom '" & @TempDir & "\_Excel.xls'.")