AutoIt Français

Code : Tout sélectionner

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Global $chem1,$quickr,$search

$chem1="\\fr_data\PARTAGES\PLANNING\PLANNING MUTUALISE"
$quickr="Lotus Quickr\Espaces d'équipes\planning"

;~ ************* Vérifiaction si le fichier connu existe

If not FileExists($chem & "\" & "planning.htm")
    MsgBox(16, "Erreur", "Pas de fichiers HTM trouvés")
    exit
EndIf

;~ ************* Vérifiaction si le connecteur est démarré
If not ProcessExists("dimon.exe") Then
    MsgBox(16, "Erreur DIMON.exe ", "Le moniteur QuickR n'est pas lancé" & chr(10) & chr(10) & "Le Processus DIMON.exe (non actif) est nécessaire" & chr(10) & chr(10) & "Veuillez relancé 'Lotus QuickR'")
    Exit
EndIf

;~ ******************************************On ouvre l'explorateur avec le chemin Source $chem1
run ("explorer.exe " & $chem1)
WinWaitActive($chem1,"",5)
If Not WinActive($chem1,"") Then
    MsgBox(16, "Erreur", "Le chemin n'existe pas ou l'explorateur n'a pas démarré")
    exit
endif

;~ ****************************************** Je place en mémoire le fichier planning.htm (comme un CTRL+C)

;~ ?????????????????????????????????????
;~ ?????????????????????????????????????
;~ ??????????? COMMENT ON FAIT ?????????
;~ ?????????????????????????????????????
;~ ?????????????????????????????????????
;~ Send("{CTRLDOWN}c{CTRLUP}{LWINDOWN}{LWINUP}")

;~ ****************************************** Je démarre mon connecteur Quickr
Send("{LWINDOWN}e{LWINUP}")

WinWaitActive("Poste de travail","",5)
If Not WinActive("Poste de travail","") Then
    MsgBox(16, "Erreur", "Le poste de Travail n'a pas été lancé")
    exit
endif

;~ ****************************************** Je place le 'pseudo' chemin du dossier source
;~ ****************************************** En effet, Lotus ne travail sur des dossier, mais des fichier .NFS (ou base NFS)
ControlFocus("[CLASS:ExploreWClass]", "", "Edit1")
send($quickr)
send("{ENTER}")

;~ ****************************************** Je colle le fichier que j'ai Copier plus haut
Send("{CTRLDOWN}v{CTRLUP}{CTRLDOWN}v{CTRLUP}")

Exit