Ouvrir logiciel (internet explorer) sous vba

Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour, chère amis programmeur,

J'ai un soucis de programmation, voilà je débute la programmation en VBA sous Excel :

Je souhaiterais réussir à ouvrir via une macro programmé en VBA, une page Internet Explorer sur laquelle, je viendrais rejoindre un logiciel professionnel.
Je n'arrive pas à trouver une aide pour ouvrir IE..

De plus mon autre soucis c'est que une fois la page ouverte, il faudrait que je viennes toujours à l'aide de cette macro, rentré des données de recherche et récupérer d'autres données.
Cela peut paraître vague, mais si je pouvais avoir des infos pour ouvrir IE et y rentrer des Info cela m'aiderais.

Merci à vous..

Cordialement

2 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Lancer une application : shell()
    Activer une fenetre : appactivate
    Envoyer des caractères vers une fenetre active : sendkeys()

    Fais F1 sur chaque fonction pour avoir la syntaxe et les exemples.

    eric
    0
  2. Utilisateur anonyme
     
    Merci je vais méditer là dessus. Juste une autre question à quoi correspond la variable à gauche du égale qu'il faut ajouter ?
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      je ne vois pas ce que tu as devant les yeux, désolé...
      0
    2. ed
       
      salut,
      moi j'utilise ça :

      
      
      'Si ça ne fonctionne pas, aller dans :
      'Outils -> Références -> Parcourir C:\Windows\System 32\shdocvw.dll
      'Si ça ne marche toujours pas, aller dans IE7
      'Outils -> Options Internet -> Onglet Sécurité -> Désactiver le mode protégé

      Dim IE As InternetExplorer
      Dim winShell As New ShellWindows
      Dim MyURL As String

      MyURL = "http://eui.orange.fr/lost/bin/lost.cgi"

      Set IE = CreateObject("InternetExplorer.Application")
      IE.Visible = True `=False pour aller plus vite
      IE.Navigate MyURL

      `On attend que la page soit chargée
      Do While IE.readyState <> READYSTATE_COMPLETE
      DoEvents
      Loop

      'Remplir le champ souhaité (en l'appelant par son nom -> Code source)
      IE.document.all("credential").Value = "blablabla"
      
      

      est ce que ça te va ?
      0
    3. Utilisateur anonyme
       
      En effet ta façon de faire les choses est beaucoup plus poussée.. Tu as crée un objet qui représente IE.

      Mais en tout cas ta méthode est très bien, peut être un soupçon trop poussé par rapport à mes connaissance de VBA. Mais après tout c'est comme ça que l'on apprend.. :p

      Le soucis c'est que si le site dans lequel je veux venir chercher mes infos est mit à jour, et que le code source est changé. Le programme ne fonctionnera plus, non ? Qu'en penses-tu ?

      PS: Désolé Eric ma question n'étais pas clair mais j'ai résolu le problème.
      0