Discussion :

[pwrollez]

Bonsoir,

Je viens de parcourir de multiples sites/forums concernant VBA 6. afin de trouver la réponse à mes questions :

Je souhaite automatiser l'importation de données d'un site web sous format .csv mais ce site est protégé par un identifiant et un mot de passe. J'ai les droits d'accès. j'arrive à aller sur le site en question sans problème. Mais comment automatiser la partie identifiant/mot de passe ainsi que le choix de fichiers précis à télécharger une fois qu'on est entré?

Votre aide est forcément la bienvenue car après plusieurs mois de recherches non productives sur le net ainsi que dans divers bouquins concernant VBA ou Excel, j'avoue être un peu découragé là.
Si ça se trouve, on ne peut pas le faire ce genre de chose via excel/VBA.

D'avance merci à vous.

[SfJ5Rpw8]

bonjour et bienvenue sur le forum ...

Cela dépend essentiellement de l'organisation des sites sur lequels tu ve récupérer tes données....tu peu piloter internet explorer un petite recherche sur les forum VB avec les mots clefs IE,Helem devrai t'aider à commencer quelque chose....... par exemple le Script (facilement adaptable en VBA ..) :
[VBS]Insérer password dans navigateur par VBS

[pwrollez]

Merci pour ta réponse... Ayant déjà du mal en VBA malgré plusieurs tentatives d'auto formation, je me vois mal transcrire du VBS en VBA... Je retourne donc à mes études... peut être qu'un jour une étincelle se fera...

Si toutefois quelqu'un se sent l'aame d'un bienfaiteur en VBA, qu'il n'hésite pas.

[AlainTech]

Un début de "traduction" (non testé):

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
Sub OpenIE()
  ' il faut cocher Microsoft HTML Object Library
  ' et Microsoft Internet Controls dans Outils - Références
  Dim IE As InternetExplorer
  Dim Helem As HTMLElementCollection
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = 1
  IE.navigate "http://www.developpez.net/forums/login.php"
  Do While (IE.Busy)
    DoEvents
  Loop
  Set Helem = IE.document.getElementById("username")
  Helem.Value = "pwrollez"
  Set Helem = IE.document.getElementById("password")
  Helem.Value = "LE_MOT_DE_PASSE_A_pwrollez"
  Set Helem = IE.document.getElementById("login")
  Helem.Click
End Sub

A toi de chercher un peu, maintenant.

[pwrollez]

Merci pour l'info ci-dessus... je cherche, je cherche... mais le miracle ne se produit pas... J'ai acheté un autre bouquin sur VBA... on verra bien si ça devient clair... Autrement, pas le choix que de trouver un prof pour une démo...

[pwrollez]

Bon, je progresse tant bien que mal et cela donne cela :

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
Sub piloterPageHTML()
'nécessite d'activer les références
'Microsoft HTML Objects Library et Microsoft Internet Controls
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim Hx As IHTMLInputElement
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.developpez.net"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
Set Hx = Helem.Item("UserName") 'Définit le champ Input contenu dans la page
Hx.Value = "rollez" 'Insere les données
Set Hx = Helem.Item("password") 'Définit le champ Input contenu dans la page
Hx.Value = "lemot depasse qui va bien" 'Insere les données
For i = 0 To Helem.Length - 1
If Helem(i).getAttribute("name") = "login" Then Helem(i).Click
Next i
End Sub

A partir de là je perd les pédales...

Disons qu'une fois arrivé là, je dois faire un clic sur un lien interne à cette page... Et je ne trouve pas la soluce à cela... J'ai tenté ça mais sans succès...

Code :

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

1
2
If Helem(i).getAttribute("name") = "manage_user" Then Helem(i).Click
Next i

J'ai aussi tenté ça :

Code :

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

1
2
If Helem(i).getAttribute("URl=") = "www.developpez.nt/...manage_user" Then Helem(i).Click
Next i

mais sans résultat...

Quelquun de compétent serait il prêt à m'aider sur ce coup là ?

[cafeine]

Hello,

si c'est possible à toi de nous le dire, de quel site s'agit-il ?

Juste pour info, sache que de nombreux sites n'acceptent pas qu'on récupère leur contenu de cette façon (pages jaunes, mappy, etc.).

Pourquoi cette question ? parce que le code VB éventuel va énormément dépendre de la structure HTML de la page ... et d'autres part certains sites proposent des flux RSS peut-être plus faciles à traiter.

cf : http://cafeine.developpez.com/access/tutoriel/weblog

[pwrollez]

mon test a fonctionné sur le site en question... jusqu'à ma tentative de clic sur un lien interne à ce site.... Donc par conséquent, je suis convaincu que ce n'est qu'au niveau de mes arguments que cela ne passe pas... Je ne veux pas mettre en valeur le nom du site concerné car cela concerne mon travail... question de confidentialité... Cependant, en MP ce sera possible si vous êtes toujours interressés de m'aider sur ce point.

[pwrollez]

Apparemment, personne n'est emballé par l'idée... tant pis merci quand même... quand j'aurais trouvé (si je trouve un jour), je posterai toutefois la solution afin que tout le monde puis en profiter...

[AlainTech]

Le problème, c'est que tu nous demande de chercher dans le vide.

Sans connaître le site en question, on ne peut te donner que des réponses générales et vagues.

Dis-nous de quel site il s'agit et on pourra, peut-être, essayer de t'aider.