Discussion :

[MM_13]

Bonsoir bonsoir,

J'aimerais faire un bout de code pour pouvoir télécharger un fichier (CSV) depuis un site internet qui a un identifiant et mode de passe pour se connecter.
Le problème c'est que je ne sais vraiment pas du tout par où commencer.
J'ai essayé de m'aider à partir de ce qui a été fait sur cette discussion : https://www.developpez.net/forums/d1...ite-login-mdp/

Mais même en changeant l'adresse du site et en indiquant le bon identifiant et le mot de passe ça ne marche pas.

Lorsque je clique sur F12 pour voir ce qui se passe sur la page internet je ne pige rien comme au html.

Autre point, est ce qu'il faut forcément passer par Internet Explorer ?

Le site en question est le suivant : https://www.espaceabonne.area-enligne.com/


Merci.

[patricktoulon]

Bonjour
c'est une page tout ce qu'il y a de plus basique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_LOGIN_IE()
Dim IE As Object
URL$ = "https://www.espaceabonne.area-enligne.com/Default.aspx?tabid=66"
Set IE = CreateObject("internetexplorer.application")
With IE
.Visible = True
.navigate URL
Do: DoEvents: Loop While .readystate <> 4
.document.getelementsbyname("dnn:ctr643:Signin:txtUsername")(0).innertext = "1236578569" 'identifiant numerique
.document.getelementsbyname("dnn:ctr643:Signin:txtPassword")(0).innertext = "monmotdepasse" 'mot de passe
.document.getelementsbyname("dnn:ctr643:Signin:cmdLogin")(0).Click 'bouton se connecter
End With
End Sub

Autre point, est ce qu'il faut forcément passer par Internet Explorer ?

peut etre pas avec une requette ca peut se faire mais pour cela il faut enregistrer le resau dans "F12" et voir les elements de la requete mais sans mot de passe et login t'es tout seul

[MM_13]

Bonjour
c'est une page tout ce qu'il y a de plus basique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_LOGIN_IE()
Dim IE As Object
URL$ = "https://www.espaceabonne.area-enligne.com/Default.aspx?tabid=66"
Set IE = CreateObject("internetexplorer.application")
With IE
.Visible = True
.navigate URL
Do: DoEvents: Loop While .readystate <> 4
.document.getelementsbyname("dnn:ctr643:Signin:txtUsername")(0).innertext = "1236578569" 'identifiant numerique
.document.getelementsbyname("dnn:ctr643:Signin:txtPassword")(0).innertext = "monmotdepasse" 'mot de passe
.document.getelementsbyname("dnn:ctr643:Signin:cmdLogin")(0).Click 'bouton se connecter
End With
End Sub

peut etre pas avec une requette ca peut se faire mais pour cela il faut enregistrer le resau dans "F12" et voir les elements de la requete mais sans mot de passe et login t'es tout seul

Bonsoir,

J'ai essayé votre code.
Déjà je ne comprends pas tout, surtout la partie ".document..." à quoi cela correspond ?

Ensuite lorsque je le teste, ça ne marche jamais tu premier coup, j'ai un message d'erreur qui est le suivant : "Erreur d'exécution '91': Variable objet ou variable de bloc with non définie".

Puis lorsque je relance et que j'arrive à me loguer sur le site internet, j'atterri sur la page d'accueil.
Comment je peux faire pour accéder à la page voulue qui contient le bouton "Télécharger au format CSV" ?

Merci.

[patricktoulon]

re
bonjour
je vois un peu de lecture te fera le plus grand bien
https://qwazerty.developpez.com/tuto...-et-vba-excel/