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