Sauvegarde un classeur avec un nouveau nom et/ou un nouveau type
#include <Excel.au3>
_Excel_BookSaveAs ( $oWorkbook, $sFilePath [, $iFormat = $xlWorkbookDefault [, $bOverWrite = False [, $sPassword = Default [, $sWritePassword = Default [, $bReadOnlyRecommended = False]]]]] )
| $oWorkbook | Objet Workbook qui doit �tre sauvegard� |
| $sFilePath | Chemin et nom du fichier de sauvegarde |
| $iFormat | [optionnel] Type de fichier Excel a �criture. Toutes les valeurs de l'�num�ration XlFileFormat sont possibles. |
| $bOverWrite | [optionnel] True �crase un fichier existant (par d�faut = False) |
| $sPassword | [optionnel] La cha�ne mot de passe avec lequel prot�ger la feuille . Si la valeur est d�finie avec le mot-cl� Default, aucun mot de passe ne sera utilis� (par d�faut = mot-cl� Default) |
| $sWritePassword | [optionnel] La cha�ne mot de passe d'acc�s en �criture avec lequel prot�ger la feuille. Si la valeur est le mot-cl� Default, aucun mot de passe ne sera utilis� (par d�faut = mot-cl� Default) |
| $bReadOnlyRecommended | [optionnel] True affiche un message lorsque le fichier s'ouvre, invitant � ce que le fichier soit ouvert en lecture seule (par d�faut = False) |
| Succ�s: | Retourne 1. |
| �chec: | Retourne 0 et d�finit @error <> 0. |
| @error: | 1 - $oWorkbook n'est pas un objet 2 - $iFormat n'est pas un nombre 3 - Le fichier existe, le flag d'�crasement n'est pas d�fini 4 - Le fichier existe mais ne peut pas �tre supprim� 5 - Une erreur s'est produite lors de l'enregistrement du classeur. @extended contient le code d'erreur COM retourn� par la m�thode SaveAs. |
A partir de Excel 2007, vous devez fournir � la fois le param�tre $iFormat et l'extension correcte du fichier dans $sFilePath.
Par exemple $iFormat = $xlExcel8 et extension ="xlsx" renverra une erreur.
Voir l'�num�ration XlFileFormat dans ExcelConstants.au3 pour les valeurs possibles.
#include <Excel.au3> #include <MsgBoxConstants.au3> ; Cr�e un objet Excel et ouvre un classeur exemple Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSaveAs-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSaveAs-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; Enregistre le classeur (xls) dans un autre format (html) dans un autre r�pertoire et ; remplace une version existante ; ***************************************************************************** Local $sWorkbook = @TempDir & "\_Excel1.html" _Excel_BookSaveAs($oWorkbook, $sWorkbook, $xlHtml, True) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSaveAs-Exemple 1", "Erreur lors de la sauvegarde du classeur '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_BookSaveAs-Exemple 1", "Workbook successfully saved as '" & $sWorkbook & "'.") ShellExecute($sWorkbook)