[R] fermer un fichier excel
Posté : mar. 22 juil. 2014 17:00
Bonjour,
je n'arrive pas à enregister & fermer le fichier !!!!! je bloque après le msgbox ....
Une idée ???
je n'arrive pas à enregister & fermer le fichier !!!!! je bloque après le msgbox ....
Une idée ???
Code : Tout sélectionner
$oExeResult = _SQLQuery($Db_oConn, "SELECT * FROM Exclus;" )
Local $oAppl = _Excel_Open (True,False,True,True,True)
$oWorkbook = _Excel_BookNew($oAppl, 1)
$oAppl.ActiveWorkBook.ActiveSheet.Cells(1,1).CopyFromRecordset ($oExeResult)
local $RowCount = $oWorkbook.ActiveSheet.UsedRange.Rows.Count
Msgbox(1,"Liste noire", "Il existe " & $RowCount & " lignes dans le fichier")
_Excel_BookSaveAs($oWorkbook, $path & $Res & "ssh_exclus1.csv", "csv",true)
_Excel_BookClose($oWorkbook)