[..] Fin de boucle quand un fichier est sauvegardé en entier
Posté : jeu. 05 janv. 2012 12:44
Bonjour à toutes et à tous
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 ... :
J'ai également essayé avec une boucle mais c'est encore pire (certainement du à une erreur de ma part ....
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é!")