Discussion :

[Mut]

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

[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

[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

[pgz]

Bonjour.

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

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

A+

PGZ

[Mut]

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....)

[pgz]

Bien!

Tu as réussi à sélectionner la bibli

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 :

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
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