AutoIt Français

Code : Tout sélectionner

#include <WindowsConstants.au3>
#include <Excel.au3>

global $dir_in ; Emplacement des fichiers a récupérer
global $dir_out ; Emplacement destination
global $end_message ; Message de fin
global $liste_bl ; fichier excel liste des BL
global $arr[10000] ; espace réservé à la lecture de la colonne excel des BL
global $date[10000] ; espace réservé à la lecture de la colonne excel des dates de confirmation


$fichierini = @ScriptDir & "\recupbl.ini"
iniinfo($fichierini)


$oExcel = _ExcelBookOpen($liste_bl,0) ; On ouvre le fichier Excel
_ExcelSheetActivate($oExcel, "Feuil1") ; on se positionne sur la feuille Excel


; Lecture du fichier Excel et chargement des variables array
$i = 2
While 1
 $arr[$i]= $oExcel.Activesheet.Cells($i,1).Value  ; N° BL
 $date[$i]= $oExcel.Activesheet.Cells($i,2).Value ; Date
    $date[$i] = StringLeft($date[$i],4) & "\" & StringRight(StringLeft($date[$i],6),2) ; on reconstitue la date sous la forme 2013/01

    if $arr[$i] ="" then ExitLoop ; Si la cellule est vide on sort de la boucle
 $i = $i+1
WEnd
;$lignes = $i ;combien de fichiers PDF il y a dans la colonne

_ExcelBookClose($oExcel) ; On ferme Excel
;ProcessClose("EXCEL.EXE")

$i = 2
    While 1
        if $arr[$i] ="" then ExitLoop ; Si la cellule est vide on sort de la boucle
            FileCopy ($dir_in & "*" & $arr[$i] & "*.pdf", $dir_out & $date[$i] & "\" & $arr[$i] & ".pdf",9)
            $i = $i+1
    WEnd


FUNC INIINFO($file)
 $dir_in = IniRead($file, "folders", "input", "\\Daticeva\bolle\FILED\")
 $dir_out = IniRead($file, "folders", "output", "C:\recupbl\BL\")
 $liste_bl = IniRead($file, "folders", "liste_bl", "C:\recupbl\BLs_Recup.xls")
 $end_message  = IniRead($file, "messages", "end", "écupération terminée !")
EndFunc