Mon but : Ouvrir des pdf contenu dans une base de données grâce à Acrobat reader, les sauvegarder dans un endroit donnée et passer à l'enregistrement suivant dans ma base de donnée.
Mon souci : Le délais d'ouverture et de sauvegarde du pdf varie selon sa taille (ou autre chose d'ailleurs ...)
Donc si quelqu'un peu me donner un tuyau
Bertrand
Ce que j'ai actuellement et qui ne fonctionne pas ... :
Code : Tout sélectionner
for $i=1 to 10
;Donner le Focus à Filemaker
WinActivate("FileMaker Pro Advanced")
;Verifier que Fmp est bien actif
WinWaitActive("FileMaker Pro Advanced")
Send("^1")
Send("!s")
Send("{down}")
Send("{enter}")
sleep(1000)
; Ici Acrobat doit se lancer et ouvrir le pdf
;Donner le Focus à Acrobat
WinWaitActive("[CLASS:AcrobatSDIWindow]")
MouseClick("left",1505,538,2)
Send("+^s")
sleep(500)
Send("^v")
Send("{enter}")
sleep(1000)
While Not FileExists(ClipGet())
sleep(500)
WEnd
WinClose("[ACTIVE]", "")
nextCode : Tout sélectionner
for $i=1 to 10
;Donner le Focus à Filemaker
WinActivate("FileMaker Pro Advanced")
;Verifier que Fmp est bien actif
WinWaitActive("FileMaker Pro Advanced")
;Lancer le script via le menu script (Ctrl ne fonctionne pas ?)
Send("^1")
Send("!s")
Send("{down}")
Send("{enter}")
;Local $Var = ClipGet()
sleep(1000)
;Donner le Focus à Acrobat
WinWaitActive("[CLASS:AcrobatSDIWindow]")
MouseClick("left",1505,538,2)
Send("+^s")
sleep(500)
Send("^v")
Send("{enter}")
sleep(1000)
For $a =1 To 5
If FileExists(Clipget())Then
sleep(1000)
$a = 5
WinClose("[ACTIVE]", "")
Else
sleep(1000)
$a = $a+1
EndIf
Next
next
MsgBox(0, "Export", "Export terminé!")
