Discussion :

[adobis]

Bonjour à tous,

Un fournisseur de Webanalytics me fournit une URL que je peux charger dans un navigateur afin de récupérer les données au format XML.
L'url se présente comme suit :

https://apirest.atinternet-solutions...-results=10000&page-num=1

Quelqu'un pourrait-il me donner quelques pistes afin de créer un code VBA me permettant de charger automatiquement ces données dans une table access ou un fichier excel.
(le mieux étant access).
- en rendant les champs start et end variables
- en faisant varier page-num de façon à récupérer autant de pages que nécessaire (normalement pas plus de 3).

Si vous pouviez me mettre le pied à l'étrier, ce serait super !!
J'arrive en général à me débrouiller dans VBA Access et Excel mais ce n'est pas mon métier.
L'idée étant d'attaquer ensuite ces données avec BO ou Qlikview).

Merci de votre aide et bonne journée,

Arnault

[argyronet]

Bonjour,

Si c'est du XML, tu le lis avec un DOMDocument et tu remplis ta table...
Quelle que soit la source, il faut juste le moyen de lire le contenu ; pour le reste, c'est le même principe.

Argy

[adobis]

Bonjour Argy et merci de ta réponse,
Je ne pense pas pouvoir m'en sortir sans un exemple dont je puisse m'inspirer.
je vais faire quelques recherches mais ça me semble assez complexe.
Bonne journée,
Arnault

[argyronet]

Bah, déjà, fournis-nous donc un exemple de XML et on pourra te guider...

Ton lien nécessite un compte avec MDP.

Argy

[adobis]

Quand je tape l'adresse suivante dans le navigateur :
"https://apirest.atinternet-solutions.com/data/v2/xml/getData?&columns={d_time_date,m_visits,m_visitors,d_site,d_page,m_page_loads,d_l2,d_page_chap1,d_page_chap2,d_page_chap3}&sort={-m_visits}&space={s:61074}&period={D:{start:'2015-01-01',end:'2015-01-01'}}&max-results=10"

Je récupère dans ma page le contenu du fichier texte joint.

Merci,

Arnault

fichier xml.txt

[argyronet]

Bien, somme toute, c'est un fichier XML basique...

Tu as des FAQ sur le sujet.

As toi de voir celle qui te conviens le mieux.

Argy

[adobis]

Merci,
Je vois bien comment lire le fichier xml.
Mais avant ça, il faut que la procédure récupère le fichier à l'adresse "https://apirest.atinternet-...."
J'espère que c'est clair ...
A.

[argyronet]

Je persiste et signe, ton lien exige un login/mdp...

Voici un exemple pour télécharger :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Sub Test_DownloadFile()
Dim strTargetURL                                       As String
Dim strFilename                                       As String
 
    strFilename = "C:\Téléchargement\XML\ApiRest_Test.xml"
    strTargetURL = "https://apirest.atinternet-solutions.com/data/v2/xml/getData?&columns={d_time_date,m_visits,m_visitors,d_site,d_page,m_page_loads,d_l2,d_page_chap1,d_page_chap2,d_page_chap3}&sort={-m_visits}&space={s:61074}&period={D:{start:'2015-01-01',end:'2015-01-01'}}&max-results=10"
    Call DownloadFile(strFilename, strTargetURL, True)
End Sub
 
Sub DownloadFile(ByVal TargetFileName As String, ByVal URL As String, ByVal OverWrite As Boolean)
Const NO_OVERWRITE_FILE                                As Integer = 1
Const OVERWRITE_FILE                                   As Integer = 2
 
    On Error GoTo L_ErrDownloadFile
 
    Dim WinHttpReq                                     As Object
    Dim oStream                                        As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    With WinHttpReq
        .Open "GET", URL, False, "username", "password"
        .Send
    End With
    URL = WinHttpReq.responseBody
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        With oStream
            .Open
            .Type = 1
            .Write WinHttpReq.responseBody
            .SaveToFile TargetFileName, IIf(OverWrite, OVERWRITE_FILE, NO_OVERWRITE_FILE)
            .Close
        End With
    Else
        Err.Raise vbObjectError + WinHttpReq.Status, "Téléchargement échoué", "Erreur " & WinHttpReq.Status & " levée durant l'accès au site..." & vbCrLf & vbCrLf & "Sans doute une authentification est nécessaire pour accéder à la ressource..."
    End If
 
    On Error GoTo 0
L_ExDownloadFile:
    Set oStream = Nothing
    Set WinHttpReq = Nothing
    Exit Sub
 
L_ErrDownloadFile:
    MsgBox Err.Description, 48, Err.Source
    Resume L_ExDownloadFile
End Sub

Argy

[adobis]

Ton code marche Nikel, il crée bien le fichier xml.

je vais maintenant essayer d'appliquer le modèle de script de la FAQ que tu m'as indiqué pour lire ce fichier et le stocker dans une table.

Donc la logique globale serait :
- je télécharge unfichier xml
- je le lis pour le stoker dans une table access
C'est bien ça ?

[argyronet]

Donc la logique globale serait (plutôt ) :

1. je vérifie la disponiblité d'internet
2. je télécharge le fichier xml
3. je vérifie sa disponibilité locale
4. je vérifie que sa structure est bonne via DOM
5. je le lis pour le stocker dans une table temporaire Access
6. je contrôle le contenu dans la table temporaire avec le compteur qui a énuméré le nombre d'occurences ou via une collection qui a été alimenté avec des clés identificatrices
7. j'insère le tout dans la table finale si tout va bien
   => tout ça biensûr blindée de gestions d'erreurs
   

Argy

[adobis]

hum, je pense que je vais me contenter déjà de tes points 1 et 5 dans un premier temps.

Je viens de coller le code suivant issu de la FAQ pour lire le fichier XML.

L'instruction Private Sub BrowseChildNodes(root_node As IXMLDOMNode) me retourne l'erreur suivante :

erreur de compilation : type défini par l'utilisateur non défini.

J'ai à un moment pensé à une bibliothèque non installée mais l'erreur persiste.

Si tu as une idée.

Arnault

[argyronet]

Oui, il faut que tu fasses référence à Microsoft XML, v4.0 ou v6.0 ; à toi de voir selon.

Argy