importer des datas periodiques depuis le web

[taketik]

Bonjour,

je souhaite réaliser un tableau avec des données que je vais récupérer via des requêtes web (donnée externe) avec une actualisation automatique (toutes les 5minutes par ex), est ce possible, si oui comment faire??

merci d'avance

 

[JJ1]

Re : importer des datas periodiques depuis le web

Bonjour,
Je ne sais pas si ça va t'aider, MichelXLD avait fait un post au sujet d'importation périodique du Web:

https://www.excel-downloads.com/threads/cours-des-metaux-precieux.149516/

Bonne soirée

 

[taketik]

Re : importer des datas periodiques depuis le web

merci de l'info, mais j'utilise déjà cette fonctionnalité, mon pb est plutôt de rajouter les valeurs récupérer a la fin d'un tableau pour pouvoir en sortir une courbe et non toujours sur la même cellule

 

[Guest]

Re : importer des datas periodiques depuis le web

bonjour,

voici un exemple de création de requête qui ajoute des lignes à chaque rafraichissement. Comme on ne peut pas changer la destination (cellule) d'une requête, la requête est recrée à chaque fois.
Il y a d'autre possibilité suivant le cas.
A adapter.

[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] CommandButton1_Click()
    [COLOR=BLUE]Dim[/COLOR] requete [COLOR=BLUE]As[/COLOR] QueryTable
    [COLOR=BLUE]Dim[/COLOR] cDest [COLOR=BLUE]As[/COLOR] Range
    [COLOR=BLUE]Set[/COLOR] cDest = Range([i]"A1"[/i])
    [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]Resume[/COLOR] [COLOR=BLUE]Next[/COLOR]
    [COLOR=BLUE]Set[/COLOR] requete = [COLOR=BLUE]Me[/COLOR].QueryTables(1)
    [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] requete [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]With[/COLOR] requete
            [COLOR=BLUE]Set[/COLOR] cDest = .ResultRange.Offset(.ResultRange.Rows.Count + 3).Resize(1, 1)
            .Delete
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
    [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]GoTo[/COLOR] 0
    [COLOR=BLUE]Set[/COLOR] requete = [COLOR=BLUE]Me[/COLOR].QueryTables.Add([i]"URL;http://www.excel-downloads.com/forum"[/i], cDest)
    [COLOR=BLUE]With[/COLOR] requete
        .Name = [i]"forumXLD"[/i]
        .WebFormatting = xlNone
        .WebSelectionType = xlSpecifiedTables
        .WebTables = [i]"9"[/i]
        .Refresh
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

A+

 

[taketik]

Re : importer des datas periodiques depuis le web

encore merci, je vais tester cela rapidement