Discussion :

[chamus]

bonjour a tous,
un petit moment que je ne suis pas retourner sur ce forum, mais c est avec plaisir que je retrouve cette sympathique communauté qui m a déja bien aidé

Voila,
je cherche a créer dans un tableau excel un macro qui m actualise au jour le jour la parité euro dollars (en allant la chercher sur un site genre boursorama...) dans la cellule dédiée

Est ce possible ?

[flo_flo]

Bonjour,

Dans le menu Données -> Importer des données externes -> Nouvelle requête sur Internet, il est possible de récupérer les données d'une page Web. Une barre d'outils apparaît ensuite, et tu peux y actualiser les valeurs quand tu le souhaites

C'est une solution, il y a peut-être mieux, bonne spéculation en tous cas !

[chamus]

Merci Flo flo,

Juste une question :
dans l etape 2 de la nouvelle requete,
il te demande de spécifier le nom du tableau que tu veux importer.
Comment peux tu connaitre le nom du tableau de la page en question

[flo_flo]

Regarde les petits carrés jaunes avec une flèche noire à l'intérieur, il te suffit de cliquer sur celui correspondant à ton tableau

[chamus]

effectivement c est ce qui est indiqué sur l aide office on line,
mais sur l ordi sur lequel je bosse la procédure est differente:

en ouvrant
données, puis données externes, puis nouvelles requete sur le web,
je tombe sur une boite de dialogue differente ou je dois faire les 3 actions suivantes

1. donner l url du site qui contient les données
2. spécifier la zone de la page qui contient mes données. il me demande si je veux importer :
-toute la page
-que les tableaux de la pages
-un ou plusieurs tableaux spécifiques de la table
ET c est la que je blocke car je sais pas comment spécifier le tableau qui m intéresse...(je peux bien sur importer tous les tableaux de la page mais le pages est trop fouillie...)
3.choisir le format : HTML, texte...

tu vois une solution ?

[flo_flo]

Quelle version d'Excel as-tu ?

J'ai enregistré la macro en faisant ma procédure... peut-être que ca pourra t'aider :

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
25
26
27
28
29
30
31
32
33
 
Sub Makro_taux()
'
' Makro_taux Makro
' Makro am 11.06.2007 von User aufgezeichnet
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.boursorama.com" _
        , Destination:=ActiveCell)
        .Name = "www.boursorama"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "47"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Il me dit que c'est le tableau n°47 ici