Boite de dialogue Système

**tgneux** · 28/08/2007, 20h47

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....

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**OhMonBato** · 29/08/2007, 10h06

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)

**tgneux** · 29/08/2007, 14h50

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'

**tgneux** · 17/09/2007, 16h28

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

**LeForestier** · 18/09/2007, 07h29

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

**tgneux** · 24/09/2007, 11h39

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'.