Discussion :

[Brice_68]

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!

[Jean-Philippe André]

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.

[Brice_68]

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...

[Jean-Philippe André]

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

[Brice_68]

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

[Jean-Philippe André]

Code :

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

Sendkeys "{TAB}"

sinon

[Brice_68]

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.

[Jean-Philippe André]

et avec ceci :

Code :

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

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

?

[Brice_68]

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 :

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

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..

[Jean-Philippe André]

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.

[Brice_68]

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

J'ai fait comme ceci:

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
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.

[Jean-Philippe André]

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

[Brice_68]

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

[Jean-Philippe André]

sous excel, je crois qu'on a ca :

Code :

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

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

[Brice_68]

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...

[Jean-Philippe André]

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

Code :

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

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