Connection sur le web avec excel

[badbad]

Bonjour,
Même question mais présentée différemment:
Est il possible avec Excel, de se connecter sur une page web et de remplir des champs (toujours les mêmes de type Login et Mot de passe)?
Le site sur lequel je veux me connecter toutes les heures est le suivant: http://merome.net/fourmix/

Merci par avance pour toutes aides.
Cordialement
Alexandre Bessy

 

[Staple1600]

Re : Connection sur le web avec excel

Re



Donc le reste de macro
est une requète Web?

(L'équivalent de Données externes/Exécuter une requète enregistée)

 

[valyno]

Re : Connection sur le web avec excel

Exact, c'est une requête web.

J'ai ajouté cette ligne de code :

.password.Select

et Ô miracle, dans le processus de connection, j'ai pu voir que la case mémoriser apparaissait.

Mais le mot de passe n'est pas mémorisé.
Je pense que la ligne de code suivante n'est pas correcte :

.memo.Value = "oui"

peut-etre que la commande click comme pour le bouton submit fonctionne. Je vais essayer de ce pas !!

 

[Staple1600]

Re : Connection sur le web avec excel

Re


A tout hasard


.memo.Value = True

 

[valyno]

Re : Connection sur le web avec excel

Je suis fier, j'ai trouvé comme un grand :

 With .document.forms("Identification")
             .login.Value = "username"
             .password.Select
             .password.Value = "password"
             .memo.Click
             .submit2.Click

Bon, j'ai toujours un soucis, mais je ne pense pas qu'il soit du au formulaire.

Ton aide m'a été très précieuse, j'ai réussi à m'identifier et à mémoriser ma session !!!

Mille mercis !!!

 

[carlos]

Re : Connection sur le web avec excel

Bonjour

Je relance cette discussion car elle m'interesse.

J'ai tester les 3 formules differentes .
Elles fonctionnent jusqu'a la demande de saisie des codes.

Apres ca coince :
Helem(0).innerText = "xxxxx"
Helem(1).innerText = "25253" ' ou 25254
ou
Helem(1).innerText = "25253" ' ou 25254
Helem(0).innerText = "xxxxx"

ca s'arrete a la 1ere ligne.

J'ai pourtant bien activer les references mais ....


carlos

 

[yahya belbachir]

bonjour


j'espere que cet exemple pourra t'aider

pour activer les references Microsoft HTML Objects Library et Microsoft Internet Controls :
dans l'editeur de macros
Menu Outils
References
Coches les lignes correspondantes
Cliques sur OK pour valider



Sub piloterPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls

Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True

IE.navigate 'http://merome.net/fourmix/body.php'
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement

Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input')

'(boucle pour lister les objets type 'input' de la page)
'For i = 0 To Helem.Length - 1
'MsgBox Helem(i).getAttribute('name') & ' / ' & Helem(i).getAttribute('value')
'Next i

Helem(0).innerText = 'mon login'
Helem(1).innerText = 'mot de passe'
Helem(2).Click 'simulation clic
End Sub


bonne journée
MichelXld

Bonjour Monsieur
serait-il possible d'utiliser ce code en chrome est pas en IE? j'aimerais acceder dans ma boite depuis chrome et qu'il fait le login et password.
merci

 

[patricktoulon]

Bonjour yahya belbachir
la réponse est simple ;c'est non
cette librairie est propre a IE pour chrome il te faut utiliser la librairie sélénium

 

[yahya belbachir]

Bonjour yahya belbachir
la réponse est simple ;c'est non
cette librairie est propre a IE pour chrome il te faut utiliser la librairie sélénium

Bonjour
j'ai utiliser ce code mais n'accede pas directement dans la boite:

Dim ChromePath As String
Dim UserName As String, Password As String

ChromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
Shell (ChromePath & " -url https://www.exemple.com/")
UserName = "XXXXXX"
Password = "********"