Access vba et internet

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:

---

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

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:

---

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.

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

Bonjour :oops:,

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:

---

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

Bonjour,

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

Code:

---

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:

---

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:

---

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:

---

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

---

A+

Bonjour, :yaisse2:

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:

---

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