Discussion :

[BRUNO71]

Bonjour,
Je reviens avec un sujet abordé récemment.
Au lieu de noter directement sur le code (le login et le mot de passe). Comment puis-je prendre l’information sur une table indépendante du formulaire sur lequel je lance la recherche du site ?
J’ai tenté de prendre ces informations à partir du formulaire où je fais la demande du login et mot de passe (txt), qui est également différent du formulaire de recherche du site.
Mais ça ne marche pas !

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
 
Dim nom As Object
Dim pass As Object
nom = Forms![frm_identifiant]![txt_login_sge]
pass = Forms![frm_identifiant]![txt_login_passe]
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://www.le site en question.fr"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
IE.Document.all("HU_LOGIN").Value = nom
IE.Document.all("HU_PW").Value = pass
IE.Document.all("PHPSESSID").Click

A défaut d’une aide, où puis-je trouver l’information ?
Bien cordialement

[Tonioyo]

Bonjour,

Pour récupérer une information dans une table via le code il faut passer par un objet recordset qui permet de faire une requête dans une table et d'en récupérer le résultat.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim nom as String
Dim pass as String
Dim rst as Recordset
 
rst.OpenRecordset("SELECT * FROM TableMdp WHERE Site like 'www.adressedusite.com';")
nom = rst("login")
pass = rst("motdepasse")
 
'Ne pas oublier de fermer et désallouer le recordset apres son utilisation
rst.close 'Fermeture
set rst = Nothing 'Désallocation

Ce bout de code est a utiliser avec l'existant que vous avez publié. J'ai supposé qu'il existait un champ login, motdepasse et Site dans la table de mot de passe TableMdp.

[LE VIEUX]

bonjour,
a voir aussi, RechDom dans le générateur d'expression (par ex: sur une zone texte du form) où Dlookup en VBA.

[BRUNO71]

Bonjour ,

Je n'ai pas bien compris car celà ne fonctionne pas :

Voici le code, je me suis servi d'un site quelconque pour voir le foctionnement :

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
 
Dim nom As String
Dim pass As String
Dim rst As Recordset
 
rst.OpenRecordset ("SELECT * FROM tbl_log_pass; like 'http://www.levioloncelle.com/forum/index.php';")
nom = rst("login")
pass = rst("motpass")
 
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://www.levioloncelle.com/forum/index.php"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
IE.Document.all("username").Value = nom
IE.Document.all("password").Value = pass
 
rst.close 'Fermeture
set rst = Nothing 'Désallocation

Voici le message d"erreur :

Erreur d'éxécution '91':
Variable objet ou variable de bloc With non définie


J'ai supprimé la clause WHERE, est-elle importante ?
Si oui, que dois-je mettre derrière ? A la place du mot site ?
("SELECT * FROM tbl_log_pass WHERE Site like 'http://www.levioloncelle.com/forum/index.php';")

Bien cordialement

[LedZeppII]

Bonjour,

BRUNO71, il y a une erreur dans le code de ton premier message.
Le début n'est pas correct

Code :

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

1
2
3
4
Dim nom As Object
Dim pass As Object
nom = Forms![frm_identifiant]![txt_login_sge]
pass = Forms![frm_identifiant]![txt_login_passe]

Il faut déclarer nom et pass en tant que String

Code :

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

1
2
3
4
Dim nom As String
Dim pass As String
nom = Forms![frm_identifiant]![txt_login_sge]
pass = Forms![frm_identifiant]![txt_login_passe]

Pour ce qui est de l'utilisation du recordset (rst), il manque la déclaration d'un objet Database

Code :

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

1
2
3
4
5
6
7
8
Dim nom As String
Dim pass As String
Dim db As DAO.Database, rst As DAO.Recordset
 
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM tbl_log_pass WHERE Site like 'http://www.levioloncelle.com/forum/index.php';")
nom = rst("login")
pass = rst("motpass")

La clause WHERE est importante si ta table contient les identifiants et mots de passe de plusieurs sites.

Par contre, si elle ne contient qu'un enregistrement :

Code :

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

Set rst = db.OpenRecordset ("SELECT * FROM tbl_log_pass;")

A+

[BRUNO71]

Bonjour,

Merci beaucoup LedZeppII, merci Tonioyo, bref, merci à vous tous....
Voici le code en entier, si cela peut servir à quelqu'un d'autre....
Il permet à partir d'access, de mémoriser un certain nombre de mot de pass et moyennant un bouton, d'ouvrir différents sites sans répéter le ou les mots de passe.....

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
24
 
Dim nom As String
Dim pass As String
Dim rst As Recordset
Dim db As DAO.Database, rst As DAO.Recordset
 
rst.OpenRecordset ("SELECT * FROM table_concernée;")
nom = rst("login")
pass = rst("motpass")
 
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://www.levioloncelle.com/forum/index.php"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
IE.Document.all("username").Value = nom 
IE.Document.all("password").Value = pass
IE.Document.all("login").Click 
rst.close 'Fermeture
set rst = Nothing 'Désallocation

Bien cordialement