Discussion :

[deubelte]

BOnjour

Est il possible grace a VBA sous excel de créer une marco
qui permet a l'ordinateur se connecter a un site internet automatiquement quand on la lance, et de télécharger un fichier dans une directory du disque dur?

plus précisement, j'aimerait qu'a une heure précise,
l'ordinateur se connecte (apres avoir lancé la macro)
a ce site internet suivant:


et récupere le fichier csv qui est telechargeable quand on clique sur:
"télécharger au format tableur portable"?

comment faire? Pouvez vous m'orienter un peu au niveau du code?
merci

[Laestic]

Dans les grandes lignes oui. Je n'ai pas la marche à suivre exacte mais je ferais comme suit :

déclarer un ActiveX brower
lancer une requête html sur l'url du document (directement)
parser la réponse si c'est possible

OU

lancer via le shell le navigateur par défaut vers l'url
demander à l'utilisateur quand il est prêt à sélectionner le fichier (il aura auparavant télécharger lui-même le bon fichier qque part) et ouvrir un sélecteur
parser ce fichier.

Je n'ai pas de code sous la main, désolé.

[deubelte]

oui, voila ce que j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub dgeg()
 
  Static objIE As Object
 
 
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.navigate "http://fr.old.finance.yahoo.com/d/quotes.csv?s=%5EFCHI&f=snl1d1t1c1ohgv&e=.csv"
        objIE.Visible = True
 
 
End Sub

cette macro renvoie une fenetre explorer qui permet nous demander si on veut installer le fichier .csv.

Maintenant, comment faire pour que VBA installe automatiquement le fichier .csv sur le bureau; sans que l'utilisateur ait a dire oui?

merci
Pierre

[deubelte]

bonjour
existe t il tes tutos ici ou ailleurs qui nous explique comment manipuler le html sous vba excel?
(Les classes des add ins ShdocVw.dll, Microsoft internet control...)

Par exemple, quel est le meilleur moyen selon vous pour récuperer la valeur:
11,239.28
sur cette page web

http://finance.google.com/finance?q=INDEXDJX:.DJI
Merci

[SilkyRoad]

bonjour

existe t il tes tutos ici ou ailleurs qui nous explique comment manipuler le html sous vba excel?
(Les classes des add ins ShdocVw.dll, Microsoft internet control...)

indirectement, ce lien theorique pourra t'aider
http://compm067.paisley.ac.uk/notes/unit06.html

Par exemple, quel est le meilleur moyen selon vous pour récuperer la valeur:
11,239.28
sur cette page web

http://finance.google.com/finance?q=INDEXDJX:.DJI

tu peux utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Nécessite d 'activer les references
    'Microsoft HTML Objects Library
    'et
    'Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
 
IE.navigate "http://finance.google.com/finance?q=INDEXDJX:.DJI"
    Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
Loop
 
Set maPageHtml = IE.document
'objet type table
Set Htable = maPageHtml.getElementsByTagName("table")
'6 eme tableau dans la page Web
Set maTable = Htable(5)
 
MsgBox maTable.Rows(0).Cells(0).innerText

bonne journée
michel