AutoIt Français

Code : Tout sélectionner

Global Const $adOpenStatic = 3
Global Const $adLockReadOnly = 1
;  pour les autres variables regarde dans l'aide de VBA excel sur ADO ou internet

Local $base = "ton fichier excel.xls"
Local $oConn = ObjCreate("ADODB.Connection")
With $oConn
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & $base
    .Open
EndWith

Local $oRS = ObjCreate("ADODB.Recordset")
$oRS.Open("SELECT * FROM [nom de la feuille$]", $oConn, $adOpenStatic, $adLockReadOnly)
; ne pas oublier les [] et le $ pour le nom de la feuille

;Pour parcourir l'objet RecordSet (lire toutes les lignes)
If $oRS.EOF or $oRS.BOF Then
    ; Aucun enregistrement
EndIf
Local $Count = $oRS.RecordCount ; nombre de ligne dans ton tableau.

While Not $oRS.EOF
    ; lire la valeur d'une cellule, de la colonne TEL si elle est en 3ème position dans ton fichier excel par exemple
    local $tel = $oRS.Fields("Tel").Value
    local $tel = $oRS.Fields(2).Value ; les N° de champs commence à 0

    ; ici tu peux exécuter la fonction de ton choix avec le Tel ainsi récupéré

    $oRS.MoveNext ; surtout ne pas oublier sinon tu auras une boucle infinie
WEnd

$oRS.Close
$oConn.Close ; Pour être propre on ferme l'objet RecordSet et la connection

;; Quelques Fonctions à connaitre
$oRS.Fields.Count ; nombre de colonne/Champs
$oRS.MoveFirst ; se déplace au 1er enregistrement

; Dans d'autre cas ou il te sera nécessaire d'écrire dans la table
$oRS.AddNew ; Ajoute un nouvel enregistrement
$oRS.Update ; valide la mise à jour (en cas d'ajout ou modification des valeurs

Code : Tout sélectionner

Global Const $adOpenStatic = 1
Global Const $adLockReadOnly = 3
;  pour les autres variables regarde dans l'aide de VBA excel sur ADO ou internet
Local $base = "NDI.xls"
Local $oConn = ObjCreate("ADODB.Connection")
With $oConn
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & $base
    .Open
EndWith

Local $oRS = ObjCreate("ADODB.Recordset")
$oRS.Open("SELECT * FROM [NDIpc30$]", $oConn, $adOpenStatic, $adLockReadOnly)
; ne pas oublier les [] et le $ pour le nom de la feuille

;Pour parcourir l'objet RecordSet (lire toutes les lignes)
If $oRS.EOF or $oRS.BOF Then
    ; Aucun enregistrement
EndIf
Local $Count = $oRS.RecordCount ; nombre de ligne dans ton tableau.

While Not $oRS.EOF
    ; lire la valeur d'une cellule, de la colonne TEL si elle est en 3ème position dans ton fichier excel par exemple
    local $tel = $oRS.Fields("Tel").Value
    ;local $tel = $oRS.Fields(2).Value ; les N° de champs commence à 0

    ; ici tu peux exécuter la fonction de ton choix avec le Tel ainsi récupéré

        winactivate("[CLASS:MozillaUIWindowClass]", "")
        Mousemove ( 42, 125 ,0) ; click sur le premier onglet
        sleep (2500)
        mouseclick ("left")
        sleep (3000)
        Mousemove ( 53, 102 ,0) ; click sur onglet ulysse 1
        mouseclick ("left")
        mousemove (40,99,0)  ; click sur le mini onglet ulysse 1
        mouseclick ("left")
        sleep (350)
        sleep (600)
        Mousemove ( 236 , 230,0)        WinWaitActive ("Portal - Mozilla Firefox")
        Sleep (100)
        mouseclick ("left")
        send ("^v")
        send ("{ENTER}")
        Mousemove ( 295 , 125,0)
        mouseclick ("left")
        sleep (300)
        mousemove (293,102 ,0) ;onglet raccourcis  remise a zero du lien 
        mouseclick ("left")
        sleep (800)
        Mousemove ( 276 , 261,0)
        WinWaitActive ("-Portal - Mozilla Firefox")
        Sleep (200) ;Temporise chargement
        mouseclick ("left")
        send ("^v")
        mousemove ( 232, 304,0) 
        mouseclick ("left")
        mousemove ( 233, 324,0)     mouseclick ("left")
        sleep (150)
        send ("{ENTER}")
        mousemove (515,127,0) ;onglet
        mouseclick ("left")
        sleep (600)
        Mousemove (165,97,0) ;onglet
        mouseclick ("left")
        ;sleep (600)    
        winwaitactive( "Mozilla Firefox")   
        sleep (200)
        mousemove (216, 338,0)  ;ndi dans diagV2
        sleep (1000)
        mouseclick ("left")
        sleep (250)
        send ("^v")
        send ("{ENTER}")
        sleep (200)
        ;winactivate("[CLASS:MozillaUIWindowClass]", "")
        ;mousemove (700,125,0)
        ;mouseclick ("left")
        ;sleep (200)
        ;mousemove (293,102 ,0) ;
        ;mouseclick ("left")
        ;sleep (400)
        ;Mousemove ( 261 , 242,0) 
        ;WinWaitActive ("-Portal - Mozilla Firefox")
        ;Sleep (5000) ;Temporise chargement 
        ;sleep (100)
        ;mouseclick ("left")
        ;send ("^v")
        ;sleep (100)
        ;mousemove (194,720 ,0)
        ;mouseclick ("left")
        ;send ("{ENTER}")


    $oRS.MoveNext ; surtout ne pas oublier sinon tu auras une boucle infinie
WEnd

$oRS.Close
$oConn.Close ; Pour être propre on ferme l'objet RecordSet et la connection