Connection sur le web avec excel

badbad · 3 Janvier 2006

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 · 17 Juin 2008

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 · 17 Juin 2008

Re : Connection sur le web avec excel

Exact, c'est une requête web.

J'ai ajouté cette ligne de code :

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 :

Code:

.memo.Value = "oui"

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

Staple1600 · 17 Juin 2008

Re : Connection sur le web avec excel

Re

A tout hasard

.memo.Value = True

valyno · 17 Juin 2008

Re : Connection sur le web avec excel

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

Code:

 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 · 10 Octobre 2009

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 · 12 Novembre 2019

MichelXld à dit:
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 · 12 Novembre 2019

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 · 12 Novembre 2019

patricktoulon à dit:
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 = "********"

Connection sur le web avec excel

badbad

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

valyno

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

valyno

XLDnaute Nouveau

carlos

XLDnaute Impliqué

yahya belbachir

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

Discussions similaires