Copie ou d�place la feuille sp�cifi�e avant ou apr�s une feuille sp�cifi�e dans le m�me classeur ou dans un autre
#include <Excel.au3>
_Excel_SheetCopyMove ( $oSourceBook [, $vSourceSheet = Default [, $oTargetBook = $oSourceBook [, $vTargetSheet = 1 [, $bBefore = True [, $bCopy = True]]]]] )
| $oSourceBook | Objet classeur source o� se trouve la feuille d'origine |
| $vSourceSheet | [optionnel] Nom, index ou objet feuille � copier/d�placer (par d�faut = mot-cl� Default = feuille active) |
| $oTargetBook | [optionnel] Objet classeur cible o� la feuille doit �tre copi�/d�plac� (par d�faut = mot-cl� Default = $oSourceBook) |
| $vTargetSheet | [optionnel] La feuille copi�e/d�plac�e sera plac�e avant ou apr�s cette feuille (nom, index ou objet) (par d�faut = mot-cl� Default = premi�re feuille) |
| $bBefore | [optionnel] La feuille copi�e/d�plac�e sera plac�e avant $vTargetSheet si True, apr�s si False (par d�faut = True) |
| $bCopy | [optionnel] Copie la feuille sp�cifi�e si True, d�place la feuille si False (par d�faut = True) |
| Succ�s: | Retourne l'objet feuille copi�e/d�plac�e. |
| �chec: | Retourne 0 et d�finit @error <> 0. |
| @error: | 1 - $oSourceBook n'est pas un objet ou n'est pas un objet classeur 2 - $oTargetBook n'est pas un objet ou n'est pas un objet classeur 3 - La feuille source sp�cifi�e n'existe pas. Le nom ou l'index n'est pas valide. @extended contient le code d'erreur COM 4 - La feuille cible sp�cifi�e n'existe pas. Le nom ou l'index n'est pas valide. @extended contient le code d'erreur COM 5 - Une erreur s'est produite lors de la copie/d�placement de la feuille. @extended contient le code d'erreur COM |
#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_SheetCopyMove-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre le classeur 2 Local $oWorkbook2 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel3.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel3.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; Ouvre le classeur 1 Local $oWorkbook1 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; Copie la feuille 1 apr�s la feuille 3 et d�finit le nom de la nouvelle feuille ; ***************************************************************************** Local $oCopiedSheet = _Excel_SheetCopyMove($oWorkbook1, 1, Default, 3, False) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 1", "Erreur lors de la copie de la feuille." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; D�finit le nom de la nouvelle feuille #forceref $oCopiedSheet $oCopiedSheet.Name = "Feuille copi�e" MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 1", "Feuille 1 copi�e apr�s la feuille 3 et renomm�e.")
#include <Excel.au3> #include <MsgBoxConstants.au3> ; Cr�e un objet Excel et ouvre un classeur Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre le classeur 2 Local $oWorkbook2 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel3.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel3.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; Ouvre le classeur 1 Local $oWorkbook1 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; D�place la feuille 2 avant la feuille 1 et d�finit le nom de la feuille d�plac�e ; ***************************************************************************** Local $oMovedSheet = _Excel_SheetCopyMove($oWorkbook1, 2, Default, 1, Default, False) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 2", "Erreur lors du d�placement de la feuille." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; D�finit le nom de la nouvelle feuille #forceref $oMovedSheet $oMovedSheet.Name = "Feuille d�plac�e" MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 2", "Feuille 2 d�plac�e avant la feuille 1.")
#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_SheetCopyMove-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre le classeur 2 Local $oWorkbook2 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel3.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel3.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; Ouvre le classeur 1 Local $oWorkbook1 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; Copie la feuille 3 du classeur 1 apr�s la feuille 3 du classeur 2 ; ***************************************************************************** _Excel_SheetCopyMove($oWorkbook1, 3, $oWorkbook2, 3, False) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 3", "Erreur lors de la copie de la feuille." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 3", "Workbook21 Feuille 3 copi�e dans Workbook2 apr�s feuille 3.")
#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_SheetCopyMove-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; Ouvre le classeur 2 Local $oWorkbook2 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel3.xls", True) If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel3.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; Ouvre le classeur 1 Local $oWorkbook1 = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls", True) If @error Then MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf ; ***************************************************************************** ; D�place la feuille 1 du classeur 1 avant la feuille 1 du classeur 2 ; ***************************************************************************** _Excel_SheetCopyMove($oWorkbook1, 1, $oWorkbook2, 1, Default, False) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 4", "Erreur lors du d�placement de la feuille." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_SheetCopyMove-Exemple 4", "Classeur 1 feuille 1 d�plac�e dans classeur 2 avant la feuille 1.")