Discussion :

[Darkordak]

Bonjour,

Je cherche a telecharger un fichier excel depuis un site mais celui ci n 'est accessible que par login et mdp.

Voici le lien du fichier : https://transparency.entsoe.eu/gener...xportType=XLSX

J'ai essayé de me logger manuellement puis d 'utiliser la methode URLDownloadToFileA qui fonctionne bien sur les fichiers sans login sans succès. Le fichier enregistré est illisible et corrompu.

Quelqu'un aurait une idée de comment faire pour accéder a ce fichier avec login et mdp?

Merci beaucoup

[Invité]

Bonsoir,
D'abord il faut que tu analyse le code de ta page en demandant dans Ie d'afficher le code source pour retrouver les éléments du log passeword! regarde ce lien: http://www.developpez.net/forums/d14...r/#post7763546

[patricktoulon]

bonsoir
comme ca a l'arrache
dans la sub test change le login et mot de passe toujours entre guillemet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test1()
    Dim url
    url = "https://transparency.entsoe.eu/generation/r2/actualGenerationPerProductionType/export?name=&defaultValue=false&viewType=TABLE&areaType=CTY&atch=false&datepicker-day-offset-select-dv-date-from_input=D&dateTime.dateTime=13.01.2016+00%3A00%7CCET%7CDAYTIMERANGE&dateTime.endDateTime=13.01.2016+00%3A00%7CCET%7CDAYTIMERANGE&area.values=CTY%7C10Y1001A1001A83F!CTY%7C10Y1001A1001A83F&productionType.values=B16&productionType.values=B18&productionType.values=B19&dateTime.timezone=CET_CEST&dateTime.timezone_input=CET+(UTC%2B1)+%2F+CEST+(UTC%2B2)&dataItem=ALL&timeRange=DEFAULT&exportType=XLSX"
    telecharge url, "monlogin", "motdepasse"
End Sub

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
 
Function telecharge(url, login, password)
    Dim IE As Object, doc As Object
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .navigate url
        .Visible = True
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        If .locationurl = "https://transparency.entsoe.eu/homepageLogin" Then
            .document.all("j_username").innertext = login
            .document.all("j_password").innertext = password
            Do: DoEvents: Loop While .readystate <> 4 Or .busy
            .document.getElementsByClassName("ui-button ui-widget ui-state-default ui-corner-all")(3).Click
        End If
    End With
End Function

c'est d'une simplicité

[Darkordak]

Bonjour,

WAW, merci pour votre réactivité! Le code que tu proposes fonctionne très bien merci.
Cependant, j'aimerai bien comprendre comment tu a fait : j'ai cherché dans le code source de la page les variables "j_username" et "j_password" utilisées pour entrer les login et mdp mais elles n'y sont pas. Est-ce propre a la macro ou au code source?

De plus, savez-vous s'il est possible d'enregistrer le fichier directement dans un dossier qu'on spécifie avec l'adresse, du genre "C:test...", sans cliquer sur le bouton enregistrer de la boite de dialogue qui s affiche sur IE?

Encore merci!

[patricktoulon]

bonjour

c'est normal que tu ne trouve pas les elements dans le code source ils n'y sont pas
il faut regarder avec l'inspecteur F12 pour voir le code html actualisé du document
car la page originale est redirigée vers la page login d'ou mon test sur le location url dans mon code
pour le reste je ne peut pas te dire n'ayant pas de compte je ne peut pas tester

[Darkordak]

merci pour ton aide. Je vais continuer à chercher pour l 'enregistrement automatique de fichier telecharge depuis IE.