Boite de dialogue Système

Bonjour,

Sur un intranet, j'ai la possibilité d'extraire des informations au format CSV à l'aide d'un lien.
J'utilise VB6.
J'arrive jusqu'au chargement du fichier. Le chargement terminé, une boite de dialogue apparait indiquant "Ouvrir, Enregister, Annulé".
Lors de l'apparition de cette boite, mon code devient inopérant, je dois valider à l'aide de la souris.

Est-il possible de prendre la main par le code et ainsi rendre l'extraction completement automatique?

Merci d'avance....:cry::cry:

Voici une copie écran pour être plus clair (voir en pièce jointe)...
Le code qui me permet d'arriver à cette étape est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

i = 0 FlagT = 0 While i < Ie.document.links.length And FlagT = 0   If Left(Ie.document.links.Item(i).outerText, 6) = "export" Then FlagT = 1 Else i = i + 1 End If Wend Ie.document.links.Item(i).Click

---

je désirerais par le code valider cette boite de dialogue.

T'as plus de chance d'avoir une réponse en montrant ton code (à mettre entre les balises code stp, le bouton "#" au dessus de la zone d'édition de ton message)

Plus simple peut-être comme problème...
Comment agir sur la boite de dialogue "Téléchargement de fichier".
Je peux voir cette fenêtre à l'aide de l'API FindWindow, mais je ne sais pas simuler le click sur le bouton 'Enregistrer'

Bonjour,

Peut-être ma question était-elle trop compliquée.
Ce que je désire c'est en cliquant sur un lien qui exporte un fichier, ne pas être obligé d'indiquer au systeme le repertoire de destination et le nom du fichier.

Merci

Bonjour,
pour fermer une fenêtre il y a bien..

Code:

---

1 2 3 4

Dim hwnd As Long hwnd = FindWindow("", "TitreFenêtre") 'Certaine fenêtre ne ferme pas avec WM_CLOSE il faut employer WM_QUIT SendMessage hwnd, WM_CLOSE, 0, ByVal 0&

---

Mais si ta fenêtre est ouverte en modal je ne vois pas comment l'employer.
Eventuellement voir s'il n'y a pas un Flag qui simule le click sur un bouton ?
A+

Bonjour,

J'arrive bien a identifier la fenêtre par son N°, mais malheureusement, je n'arrive pas à lui envoyer le "Alt+E" ou autre code que soit par la commande 'SendMessage' ou 'PostMessage'.

n'aurai tu pas un morceau de code html de ton lien ...? à nous faire voir ..?

Bonjour,
Dans la même idée que mon poste précédant voir ce lien , celui là devrait t'aidés.
Personnelement il m'a bien servi.
A+

Bonjour,
Voici un cours extrait du code source de la page Html. Je ne suis pas maitre de ce code.

Code:

---

1 2 3

<a href="f?p=160:586:4295021650492583258: FLOW_EXCEL_OUTPUT_R1578626507428959_en-us" >export to csv file </a></div></td>

---

Je simule donc un click sur le lien 'export to csv file' et j'ai une fenêtre 'Téléchargement de fichier' qui apparait. Après je suis bloqué.
Directement sur la page, j'ai aussi la possibilité de faire un click droit sur le lien et 'enregistrer sous' mais je ne sais pas comment reproduire l'action par le code.

Pour le moment, j'ai une solution quelque peu tirée par les cheveux. Je scan la page, récupère les infos et change de page jusqu'à la dernière. Cela prend quelques minutes alors que l'export ne prendrais que quelques seconde et serait de mon avis plus 'propre'.

Merci d'avance pour toute votre aide.

et tu essai d'accéder à :

Code:

---

1 2	http:://tonsite.com/?p=160:586:4295021650492583258:FLOW_EXCEL_OUTPUT_R1578626507428959_en-us

---

?

Bonsoir,

D'abords, merci pour vos idées et votre aide.
Ok, LeForestier, je vais essayer. Mon souci c'est de trouver le bouton dans la fenêtre (il y en a 3 "Ouvrir", "Enregistrer" et "Annuler"), mais je vais voir....

bbil,
Je ne sais pas exactement à quelle adresse j'accède. Il s'agit de données extraitent d'une base oracle sur un intranet avec possibilité de sauvegarder les données sous un format CSV. Je ne veux pas essayer de me connecter au server central, car mes droits ne me le permettent pas et ce n'est pas mon but.
De plus, les données sont misent à jour toutes les minutes.
J'utilise ces données pour afficher une cartographie d'appels.

Je vous remercie en tout des cas pour l'attention que vous portez à mon problème.

A+

Bonjour,

J'ai trouvé une pseudo solution qui consiste à retrouver la fenêtre puis le bouton et envoyer le code clavier correspondant
exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Ret = "Enregistrer sous" WinWnd = FindWindow(vbNullString, Ret) If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub lpClassName = Space(256) RetVal = GetClassName(WinWnd, lpClassName, 256) bWnd = GetWindow(WinWnd, 5) Do GetClassName bWnd, sSave, 250 If LCase(Left$(sSave, 6)) = "button" Then Exit Do bWnd = GetWindow(bWnd, 2) Loop   SetActiveWindow (bWnd) keybd_event 13, 0, 0, 0 ' press Return keybd_event 13, 0, KEYEVENTF_KEYUP, 0 ' release Return

---

Mais cela me semble un peu tiré par les cheveux.
J'ai essayé le déplacement de la souris sur le bouton

Code:

---

1 2	ClientToScreen bWnd, P SetCursorPos P.X + 20, P.Y + 10

---

Cela fonctionne sans problème, mais je n'arrive pas à simuler le click, malgré le code suivant :

Code:

---

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

---

rien ne se passe.

Bonjour,

C'est bon, j'ai réussi à utiliser la simulation du click souris sur les boutons désirés afin de sauvegarder le fichier (mouse-event) en déclarant les API au niveau du module.

Par contre lors de la sauvegarde, je n'arrive pas à selectionner automatiquement le nom du fichier et le répertoire de destination.
La boite de dialogue correspond à la boite système 'Enregistrer sous'.

Je ne suis vraiment pas doué avec les API.
(sendmessage,....)
Pouvez-vous me dire comment modifier le répertoire et le nom de fichier?

puisque tu évacue la boite 'Enregistrer sous', tu doit déterminer le chemin et le nom du fichier dans ton code, par exemple en indexant les noms. Sinon je vois pas bien le problème.
A+

Bonjour,

Je n'ai pas bien compris ce que tu as voulu dire LeForestier, mais je vais considérer ce problème résolu.

Je vais ouvrir un autre post concernant la gestion des boites de dialogue par les API.

Merci