[R] Copier une table access dans Excel
Posté : mar. 22 juil. 2014 15:03
bonjour,
je viens de changer de vesrion Autoit & je suis passé en Windows 7, mon ancien script ne fonctionne plus.
Avez-vous une idée sur la cause : le fichier ne se crée pas...
Merci pour votre aide .
je viens de changer de vesrion Autoit & je suis passé en Windows 7, mon ancien script ne fonctionne plus.
Avez-vous une idée sur la cause : le fichier ne se crée pas...
Merci pour votre aide .
Code : Tout sélectionner
#include <Excel.au3>
#include <IE.au3>
#include <File.au3>
#include <Date.au3>
#include <Array.au3>
#include <access.au3>
Func _SQLQuery($oConn, $sQuery)
If IsObj($oConn) Then Return $oConn.Execute($sQuery)
Return SetError(1, 0, 0)
EndFunc
$path = "c:\users\"
$Dir="tmp\"
$Res="Resultats\"
;~ ; Lancement de la base Access
;~ ; ----------------------------
$Db_oConn = objCreate("ADODB.Connection")
$Db_oRS = objCreate("ADODB.RecordSet")
$Db_oConn.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="& $path & "BDD\" & "ssh_exclus.mdb")
$Db_oRS.Open('exec Exclus_ssh', $Db_oConn, 1, 3)
$Db_oRS.Open('exec Liste_noire_ssh', $Db_oConn, 1, 3)
;~ ; exportation & mise en forme du résultat
;~ ; ----------------------------------------
$oExeResult = _SQLQuery($Db_oConn, "SELECT * FROM SSH_Exclus;" )
if not IsObj($oExeResult) then
exit 0
else
$oExcel = ObjCreate("Excel.Application")
$oExcel.WorkBooks.Add
$oExcel.ActiveWorkBook.ActiveSheet.Cells(1,1).CopyFromRecordset ($oExeResult)
_Excel_BookSaveAs($oExcel, $path & $Res & "ssh_exclus1.csv" , "csv",true)
local $RowCount = $oExcel.ActiveSheet.UsedRange.Rows.Count
Msgbox(1,"Liste noire", "Il existe " & $RowCount & " lignes dans le fichier")
_Excel_BookClose($oExcel)
endif
$Db_oConn.Close