renseigner mot de passe sur page html en vba

Bonjour,

voici ce que je souhaiterais faire:
J'aimerais acceder a un site, via un bouton sur un formulaire access.
Jusque la ça va.
Mais l'acces à ce site demande un mot de passe.
Est-til possible de renseigner cela automatiquement afin que l'utilisateur puisse tout de suite etre loggé?
Je ne maitrise pas du tout le html, donc je ne sais pas si cela est possible.

avez vous des suggestions?

Merci de votre aide!

salut, tout va dépendre du type de mot de passe pour accéder au site. Certains recommandent les sendkeys, mais si tu as des mots de passe sur support visuel, c'est mort.

C'est un mot de passe dans un champs texte classique.
( quand tu dis "support visuel" c'est par exemple un espèce de clavier virtuel ou tu tapes ton code? )

Je met le lien du site en question si ça peut aider:

http://www.estelevage.com/

Il faudrait que je puisse entrer le mot de passe, et appuyer sur le bouton de validation automatiquement...

tu peux avec des sendkeys :
sendkeys "login"
tab
sendkeys "mdp"
tab juska arriver à valider (pas compté le nombre exact)
sendkeys "{SPACE}"

Ok je vois le truc.
Par contre, comment envoyer un "tab" ?

Code:

---

Sendkeys "{TAB}"

---

:f1: sinon ;)

J'ai essayé:

SendKeys "mon mot de passe"

Mais cela a pour effet de réduire ma page internet, et rien ne s'écrit dans le champs. (pourtant on est automatiquement dans ce champs lors del'ouverture de la page)
J'ai essayé sur un autre site: google.com
Même effet, rien ne sécrit.

Pourtant la syntaxe est bonne apparement.

et avec ceci :

Code:

---

1 2 3 4 5 6 7

Dim strLogin as String Dim strMDP as String strLogin = "login" strMDP= "MDP" Sendkeys strLogin sendkeys "{TAB}" Sendkeys strMDP

---

?

non, toujours le même problème.
Ma page se réduit toute seule, et rien ne s'affiche.

Cela peut-il venir de la façon dont j'ouvre ma page?

Code:

---

1 2 3 4

URL = "http://www.google.com" X = Shell("c:\Program Files\Internet Explorer\Iexplore.exe " & URL, 1)   SendKeys "test"

---

Je ne pense pas mais bon, je ne vois pas trop ou serait le probème..

il faut s'assurer que tu as le focus sur la page... et, je pense qu'une attente de l'ordre d'1 seconde serait intéressante, histoire d'être "sûr" que la page est chargée.

Oui c'est bien ça! la page n'était sans doute pas ouvert quand je tapais.
Merci.

J'ai fait comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set ie = CreateObject("InternetExplorer.Application")   With ie .MenuBar = 1 .Toolbar = 1 .StatusBar = 1 .Navigate "www.google" .Visible = 1   End With   'attente Do While ie.busy Loop   DoEvents Call SendKeys("test", True)

---

Finalement j'ai utilisé un object pour utiliser la propriété "busy".

A titre informatif, dans mon exemple précédant avec le shell comment j'aurai pu réaliser une temporisation?

Merci de ton aide en tout cas.

:king:
tu as des fonction de type sleep ou wait, qui utilisent des timers...

En vb ok, mais en vba j'avais déjà cherché et il semblerait que ça n'y soit pas.

sous excel, je crois qu'on a ca :

Code:

---

Application.Wait Now + TimeValue("0:00:04")

---

Ok j'essaierai si j'en ai à nouveau besoin.

J'ai encore un dernier souci:
Une fois la page internet que je recherche atteinte, il y a un lien sur cette page sur lequel je devrais faire léquivalent de "clic droit + enregistrer sous"

Existe t-il une commande comme le Keysend, mais pour simuler un clic droit de souris?
J'ai également cherché la touche vbkey corrspondant à la touche "propriété" celle entre [Alt GR] et [CRTL], mais je n'arrive pas à trouver...

pas de sendkeys à ma connaissance, mais des librairies win.dll

Code:

---

1 2	mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); '//boutton droit 'appuyer mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); '//boutton droit relacher

---