gérer une page web avec VBA

[pckrobin]

Bonjour,
voilà l'objet de ma question
je souhaite piloter une page web sécurisé https en Visual Basic à partir d'un bouton sur une page excel
Pour le moment j'arrive à ouvrir cette page avec "shell" mais après je ne sais
pas comment transmettre et écrire un identifiant et un mot de passe dans les champs appropriés de cette page et de faire OK
Si vous avez des idées, elles seront les biens venues
Je travaille en VB version 6.3
Merci
Patrick

 

[PMO2]

Re : gérer une page web avec VBA

Bonjour,

Il faudrait au minimum que nous disposions de la source (comme dans la pièce jointe) OU que vous nous fournissiez une URL temporaire avec un identifiant et un mot de passe pour pouvoir vous faire parvenir un exemple de code.

Cordialement.

PMO
Patrick Morange

 

[pckrobin]

Re : gérer une page web avec VBA

Prendre par exemple l'URL ci-jointe
https://particuliers.societegenerale.fr/ et le but est de remplir automatiquement le code client dans la fenêtre "accès client"
Patrick

 

[pckrobin]

Re : gérer une page web avec VBA

JM,
oublions le clavier virtuel, si déjà j'arrive à remplir le champ "identifiant" ce serait gagné
Le code secret serait rentré manuellement par la suite
Merci
Patrick

 

[PMO2]

Re : gérer une page web avec VBA

Bonjour,

Une piste avec le code suivant. Je me suis référé entièrement à l'URL que vous avez fourni.

Copiez le code dans un module standard et adaptez les constantes à votre usage.

'''Library SHDocVw
'''C:\WINDOWS\system32\ieframe.dll\1
'''Microsoft Internet Controls

Const MY_URL As String = "https://particuliers.societegenerale.fr/"
Const IDENTIFIANT As String = "12345678"

Sub PiloterInternet()
Dim IE As Object  'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
  .Silent = False
  .Navigate MY_URL
  Do Until .ReadyState = 4
    DoEvents
  Loop
  .Document.all("codcli").Value = IDENTIFIANT
  .Document.all("button").Click
  .Visible = True
End With
Set IE = Nothing
End Sub

Cordialement.

PMO
Patrick Morange

 

[pckrobin]

Re : gérer une page web avec VBA

Merci PMO, cela fonctionne très bien Bravo
Amicalement
Patrick

 

[pckrobin]

Re : gérer une page web avec VBA

Bonjour,
PMO, une dernière question concernant un autre script HTML du même type mais là je ne vois pas comment actionner le bouton OK après avoir importer l'identifiant et le code d'accès
La page URL est https://www.creditmutuel.fr/cmlaco/fr/ dans cet exemple
As-tu une idée ?
Merci de ton aide

 

[jeanpierre]

Re : gérer une page web avec VBA

Bonjour pckrobin, PMO2,

PMO étant déconnecté, regarde ce fil de ce matin, il concerne le Crédit-Mutuel, voir s'il peut t'aider :

https://www.excel-downloads.com/threads/connexion-automatique-a-une-page-web-securisee.133415/

Bonne journée.

Jean-Pierre

 

[pckrobin]

Re : gérer une page web avec VBA

Merci JP, cela marche parfaitement
Patrick

 

[pckrobin]

Re : gérer une page web avec VBA

Bonjour,
ci-dessous le script suivant qui décrit une image pour valider un formulaire en clicquant dessus

<input src="/1/PA_1_3_S5/content/france/img/boutons/btn-se-connecter-rouge.gif" alt="Se connecter" type="image" onclick="javascript:login();" />

Le script charge donc une image avec le texte "Se connecter"

En VBA, je n'arrive pas à activer le click de l'image contrairement a un bouton
classique
Sinon, il y a la solution d'appeler la fonction décrite "javascript:login();" mais là je ne connais pas la syntaxe de l'instruction en VBA
Merci de votre aide et bonne année 2010
cordialement Patrick

 

[pckrobin]

Re : gérer une page web avec VBA

Bonjour,

en fait j'ai trouvé la fonction que je cherchais d'appel d'une fonction Javascript en VBA
il faut faire en reference au document HTML que nous voulons piloter :

document.parentwindow.execScript ("mafonctionJava()" , "javascript"

cordialement

Patrick