Ouvrir le contenu web d’un contenu userform

Le 26/01/2020 à 22:27

Bonsoir

Je reprends un peu contact avec Excel + vba délaissé depuis plusieurs années

Je recherche sur la toile une info mais je ne doit pas poser la bonne question, alors je me tourne vers vous

Je cherche s’il est possible d’ouvrir une adresse web générer par une recherche userform ‘’ recherche’’

D'avance je vous remercie

Le 27/01/2020 à 02:00

Bonjour et bienvenue,

Bien sûr il est possible d'ouvrir une adresse web, soit dans le navigateur par défaut déclaré, soit dans un autre navigateur, soit dans un userform intégré à excel ... mais il est possible aussi de lire le contenu par excel sans avoir besoin de navigateur.

Exemple sommaire ci-joint

Il faudrait préciser ta demande ...

  • quel est ton objectif ? est-ce par exemple de récupérer des informations contenues sur une page web ?
  • qu'entends-tu pat
44navigate-web-browser.xlsm (20.58 Ko)
Le 27/01/2020 à 07:42

Bonjours Steelson

Voilà j'ai mon épouse fâcher avec internet, mon objectif et de lui crée un organiseur avec le nom organismes, identifiant et mot de passe ensuite et surtout ouvrir la bonne page et rentré manuellement les infos (ou par copier coller )

Le 27/01/2020 à 08:47

ok, intéressant !

Par contre, le copier/coller des mots de passe dépend de chaque site, donc c'est plus complexe, sachant de plus que

  • certains sites comme les sites bancaires nécessitent de taper au clavier sur des touches réparties dynamiquement sur la page, donc inconnues sauf à le faire manuellement ! idem pour free
  • que des sites gouvernementaux peuvent s'identifier via un seul site (par exemple en passant par ameli)
  • qu'enfin des navigateurs comme chrome ou avast enregistrent les identifiants et mots de passe, dans ce cas il n'y a rien à faire

Je vais faire une maquette avec quelques sites connus et utiles pour moi : ebay, free, edf, enedis, impots, arear, digipost, laposte.net, orange etc.

Le 27/01/2020 à 09:15

Je pense qu'il faut en faire un peut quand même pour avoir "l'impression" de maîtrise sur la machine .

Mais déjà ouvrir le site au bon endroit avec la bonne adresse je pense que pour pour un novice ce serait pas mal .

Déjà fichier s'ouvre sur une petite fenêtre au dessus des autres elle trouve que c'est bien elle peut saisir tranquillement les identifiant ouvrir la bonne adresse ce serait fort

Le 27/01/2020 à 11:44

Première étape simple sans macro ...

14liens-utiles.xlsx (9.30 Ko)
Le 27/01/2020 à 12:46

Bonjour

A l'idée c'est ça que je voudrais avoir au final

Je n'ai pas mis le copier

15test213.xlsm (21.23 Ko)
Le 27/01/2020 à 13:06

Le copier n'est pas si simple que cela.

Dans beaucoup de cas, il faut d'abord simuler un clic sur une zone, charger une nouvelle page login et enfin envoyer par sendkeys les identifiants.

Je vais le faire pour un ou deux site à titre d'essai.

Je crois quand même que la solution favoris d'un navigateur + identifiants et mots de passe enregistrés est déjà une bonne solution. Mais pour le fun et le challenge, je vais creuser quelques sites.

Le 27/01/2020 à 13:43

Un exemple ... mais le mot de passe est mis sur autre page et la coordination entre les 2 ne se fait pas correctement.

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub login_orange()

    nav = ShellExecute(0, "open", Range("B2"), 0, 0, 1)
    Application.Wait (Now + TimeValue("00:00:02"))
    Application.SendKeys "{TAB 14}", True
    SendKeys Range("C2"), True

End Sub
11login-orange.xlsm (17.32 Ko)
Le 27/01/2020 à 13:48

Cas un peu similaire avec impots.gouv

le nombre de tabulations est 6 ici

21login-impots.xlsm (17.63 Ko)
Le 27/01/2020 à 13:51

Autre exemple mais différent .... avec free

on oublie les automatismes !! ou alors il faut aller à la pêche et je ne sais pas comment simuler le clic

<li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound0');}" class="inline" role="listitem"><img onclick="ident_addNumber(0)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound0');}" src="chiffre.php?pos=0&r=54773" class="ident_chiffre_img pointer" alt="position 0" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound1');}" class="inline" role="listitem"><img onclick="ident_addNumber(1)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound1');}" src="chiffre.php?pos=1&r=85950" class="ident_chiffre_img pointer" alt="position 1" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound2');}" class="inline" role="listitem"><img onclick="ident_addNumber(2)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound2');}" src="chiffre.php?pos=2&r=38810" class="ident_chiffre_img pointer" alt="position 2" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound3');}" class="inline" role="listitem"><img onclick="ident_addNumber(3)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound3');}" src="chiffre.php?pos=3&r=35584" class="ident_chiffre_img pointer" alt="position 3" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound4');}" class="inline" role="listitem"><img onclick="ident_addNumber(4)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound4');}" src="chiffre.php?pos=4&r=8943" class="ident_chiffre_img pointer" alt="position 4" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound5');}" class="inline" role="listitem"><img onclick="ident_addNumber(5)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound5');}" src="chiffre.php?pos=5&r=89029" class="ident_chiffre_img pointer" alt="position 5" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound6');}" class="inline" role="listitem"><img onclick="ident_addNumber(6)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound6');}" src="chiffre.php?pos=6&r=40014" class="ident_chiffre_img pointer" alt="position 6" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound7');}" class="inline" role="listitem"><img onclick="ident_addNumber(7)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound7');}" src="chiffre.php?pos=7&r=94821" class="ident_chiffre_img pointer" alt="position 7" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound8');}" class="inline" role="listitem"><img onclick="ident_addNumber(8)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound8');}" src="chiffre.php?pos=8&r=53308" class="ident_chiffre_img pointer" alt="position 8" /></li>
                            <li onfocus="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound9');}" class="inline" role="listitem"><img onclick="ident_addNumber(9)" onmouseover="if(getVoiceStatus()){soundManager.stopAll();soundManager.play('sound9');}" src="chiffre.php?pos=9&r=57923" class="ident_chiffre_img pointer" alt="position 9" /></li>
Le 27/01/2020 à 15:01

problème de réseau

mon idée et beaucoup plus simple voir photo

contrôle C ouvrir navigateur contrôle V barre recherche ça marche

idée click copier ouvrir ou bouton "sélection adresse; ouvrir"

idee
Le 27/01/2020 à 15:53

OK je vais suivre ton idée.

Mais dans ce cas, il y a plus simple, une liste avec l'adresse en face et on clique dessus.

Par contre le fait de mettre l'identifiant dans le presse-papier peut être intéressant ... il suffit de faire Ctrl+V sur la zone d'identifiant.

Le 27/01/2020 à 18:02

Il me reste à mettre l'identifiant dans le presse-papier (je ne sais pas pourquoi j'ai une erreur !)

edit : fichier supprimé au profit du suivant

Le 28/01/2020 à 00:39

Une fois lancé, l'identifiant pour le site est stocké dans le presse-papier ... on peut donc faire Ctrl+V sur la zone adhoc.

18liens-utiles.xlsm (20.70 Ko)
Le 29/01/2020 à 07:06

Bonjour Steelson,

Désole d’avoir rompu la conversation mais l’Ariège très belle région mais très mauvais réseau

Je te remercie pour ton temps et ton aide. L’idée de l’identifiant dans le presse papier génial (moi j’étais parti pour y mettre l’adresse du site)

Encore une fois merci

Le 29/01/2020 à 08:43

Passe alors à la 4G, j'étais auparavant dans une région très industrielle avec pour autant une connexion exécrable ... j'étais passé à f... 4G et c'était impeccable (tel fixe t box fixe supprimée).

In fine, le sujet m'a amusé !

Rechercher des sujets similaires à "ouvrir contenu web userform"