gérer une page web avec VBA

P

PMO2

XLDnaute Accro

• 27 Décembre 2009

• #2

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 27 Décembre 2009

• #3

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 27 Décembre 2009

• #4

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 27 Décembre 2009

• #5

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.

Code:

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 28 Décembre 2009

• #6

Re : gérer une page web avec VBA

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 28 Décembre 2009

• #7

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Décembre 2009

• #8

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 28 Décembre 2009

• #9

Re : gérer une page web avec VBA

Merci JP, cela marche parfaitement
Patrick

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 3 Janvier 2010

• #10

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

 

Vote positif 0 Vote négatif

P

pckrobin

XLDnaute Nouveau

• 6 Janvier 2010

• #11

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

 

Vote positif 0 Vote négatif