QueryTables sous Access en vba

Version imprimable

03/05/2011, 19h59
Mut

QueryTables sous Access en vba

Bonjour,

Je cherche à récupérer les données sur un site. J'y parviens par le biais d'Excel avec la méthode QueryTables mais j'aimerais pouvoir y parvenir également sous Access....Quelqu'un à t'il une piste autre que celle de créer un fichier sous access ?

Merci
03/05/2011, 22h16
pgz

Bonsoir.

Si tu veux juste une piste, en voici une giboyeuse : la bibli MSXML2.
Elle correspond à une dll du system32, comme msxml6.dll

Si tu veux du code, précise ta chaîne de connexion.

Cordialement,

PGZ
11/05/2011, 17h44
Mut

Bonjour

Merci pour votre réponse, j'ai regardé du coté de msxml2 mais je ne trouve pas d'exemple de récupération de données sur un site quel qu'il soit...Je cherche plutot un équivalent de QueryTable sous Access
11/05/2011, 18h46
pgz

Bonjour.

DOnc ce n'est pas une piste, mais un code que tu cherches :mouarf:

Es-tu arrivé à sélectionner la biblio dont je t'ai parlé dans mon premier message?

A+

PGZ
11/05/2011, 19h10
Mut

:mrgreen: mais nonnnn faut pas le prendre comme ça !!! Oui j'ai sélectionné la référence msxml6.dll mais cette bibli n'est elle pas réservée au format xml ? (lequel je ne maitrise pas forcément d'ailleurs....)

Bien!

Tu as réussi à sélectionner la bibli :ccool:

Tu vas l'utiliser pour charger le csv, sous forme de texte, directement dans une chaîne de caractères, sans passer par un enregistrement sur disque. C'est très simple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Mut() Dim oXMLHTTP As MSXML2.XMLHTTP Dim sHTTP As String Dim sLecture As String 'reçoit le texte du csv sHTTP = "http://... " 'chaîne de requête du csv Set oXMLHTTP = New MSXML2.XMLHTTP oXMLHTTP.Open "GET", sHTTP, False oXMLHTTP.send sLecture = oXMLHTTP.responseText 'c'est dans la boîte! Set oXMLHTTP = Nothing End Sub
On pourrait le mettre en FAQ, non?

PGZ

11/05/2011, 22h51
Mut

Impeccable ça me ressort le script de la page ! Par contre comment récupérer par la suite uniquement les données voulues ?

Oui effectivement il serait bon de l'incorporer dans la FAQ ;)
12/05/2011, 17h05
pgz

Bonjour.

La suite, c'est du traitement de texte classique. Pour être plus précis, il faudrait savoir ce que tu lis... et ce que tu veux en garder, et en faire!

PGZ

Ok je vois...il n'y a donc pas une sorte de requete possible comme sous Excel qui inscrit tout le texte "préformaté" de la page web dans le tableur...

Code:

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
 
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & vURL, Destination:=R)
        .Name = "LaRequete"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "4"
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With

Je vais voir si je peux récupérer de façon similaire les données dans une page web avec msxml6...

12/05/2011, 20h44
pgz

Bonsoir

Citation:

Envoyé par Mut

Je vais voir si je peux récupérer de façon similaire les données dans une page web avec msxml6...

Sinon, tu pourras faire une procédure pour enregistrer en table les données récupérées dans la chaîne de caractères. Et ce n'est pas bien difficile...8-)

PGZ
12/05/2011, 21h37
Mut

Je pense faire des boucles pour récupérer les parties de texte qui m'intéresse en me basant sur les ids des balises HTML. Penses-tu que ce soit une solution fiable ?
13/05/2011, 22h22
LedZeppII

Bonsoir,

TransferText permet d'importer des tableaux html (balises <table> ... </table>) à condition que le fichier ou l'url finisse par htm ou html.

Au pire, tu utilises la procédure pgz pour sauvegarder localement, en fichier .htm ou .html, la page récupérée à partir de ton url.

Pour l'argument NomTableHTML de TransferText, bien lire l'aide d'Access.

A+