Discussion :

[BR07]

bonjour a tous,

je souhaite pouvoir telecharger un fichier sur internet automatiquement

pour l'instant j'arrive a
-lancer la fenetre explorer
-me connecter avec mon id et pwd

par contre je bloque sur 2 pts :

1er pts : je dois choisir le type de fichier avec des bouton type "option", code source de la page web ci-joint

Format du fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<select name="FILE_FORMAT"> 
<option value="WALDATA" >Waldata, Actionbourse, Alistock</OPTION> 
<option value="EBP" >EBP</OPTION> 
<option value="Winixpro">Winixpro</OPTION> 
<option value="METASTOCK" >Metastock</OPTION> 
<option value="METASTOCKII" >Metastock II</OPTION> 
<option value="METASTOCK_A" >Metastock Ascii</OPTION> 
<option value= "EXCEL" >Excel</OPTION> 
<option value="QUICKEN" >Quicken</OPTION> 
<option value="DELPHI" >Viking</OPTION> 
<option value="LIBRE" SELECTED>Libre</OPTION> 
</select>

avec le code suivant ca ne marche pas

Code :

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

1
2
  Set Helem = IE.Document.getElementById("file_format")
  Helem.Value = "excel"

2eme pts : lorsque que lance le telecharger windows me lance la fenetre de telechargement habituelle (oucrir, enregister sous, annuler), comment me passer de cette fenetre et enregistrer directement sur le DD

merci par avance.

[DarkVader]

Veuillez penser à utiliser la mise en forme afin que vos posts soient plus lisible.

fait une recherche avec getElementsByName qui te retournera une collection

[BR07]

j'utilise VB5.0, et je n'ai pas d'aide pour "getElementsByName", je ne sais pas comment l'utiliser

Set Helem = IE.Document.getElementById("file_format")
Helem.value = "Excel"

?

[DarkVader]

Code :

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

1
2
3
4
set helem=IE.document.getElementsByName("FILE_FORMAT")
for x=1 to helem.length-1
	if helem(x-1).Value="EXCEL" then helem(x-1).Selected=true
next

[DarkVader]

http://club.developpez.com/regles/#L3.4

[BR07]

desole, j'ai merde

Choix 1 : j'appuis sur le bouton "telecharger" et la boite de dialogue "windows" apparait, donc je suis obliger de passer en manuel, j'ai essayé d'utilise ce code, mais probleme VB ne reconnait pas ce code

Code :

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

1
2
3
4
5
6
 
Protected WithEvents IEexterne As SHDocVw.InternetExplorer 
IEexterne = New SHDocVw.InternetExplorer() 
 
Private Sub IEexterne_DownloadBegin() Handles IEexterne.DownloadBegin 
End Sub

de plus je ne vois pas comment enregistrer sur DD


donc 2eme choix :
j'ouvre le fichier du type Excel dans la fenetre de l'explorer, et la encore je bloque, je n'arrive pas a faire "enregistrer sous" ce que j'ai a l'ecran

[DarkVader]

...j'ai essayé d'utilise ce code, mais probleme VB ne reconnait pas ce code

Code :

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

1
2
3
4
5
6
 
Protected WithEvents IEexterne As SHDocVw.InternetExplorer 
IEexterne = New SHDocVw.InternetExplorer() 
 
Private Sub IEexterne_DownloadBegin() Handles IEexterne.DownloadBegin 
End Sub

normal c'est du .net

Code :

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

1
2
3
4
5
6
7
8
Public WithEvents IEexterne As SHDocVw.InternetExplorer 
.../...
set IEexterne = New SHDocVw.InternetExplorer
.../...
 
Private Sub IEexterne_DownloadBegin() 
 
End Sub

devrait être plus approprié

...
de plus je ne vois pas comment enregistrer sur DD

en traitant le contenu du document récupéré puis en sauvegardant le résultat

[BR07]

en fait je qui pose probleme c'est "WithEvents" dans

Code :

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

Protected WithEvents IEexterne As SHDocVw.InternetExplorer

il ne le reconnait pas, au fait j'utilise VB5.0


pour l'enregistrement, la seule solution trouve a ete de passer par sendkey (merci deltree)

je n'arrive pas a envoyer des commandes a explorer en dehors des methodes indiqué sur le site de microsolf, cad .navigate .quit .visible ...
mais de methode pour un .save ou .saveas !

[ThierryAIM]

en fait je qui pose probleme c'est "WithEvents" dans

Code :

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

Protected WithEvents IEexterne As SHDocVw.InternetExplorer

il ne le reconnait pas, au fait j'utilise VB5.0

Il n'y a PAS de Protected WithEvents en VB6

relis ce qu'a écrit DarkVader

De plus, WithEvents ne peut être déclarer que dans un module de classe

[BR07]

je n'ai pas mis "Protected", mais public
et le code est bien dans un module classe

Code :

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

Public WithEvents IEexterne As SHDocVw.InternetExplorer

reste que "withevents" n'est reconnu