IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Erreur : Objet requis :'Application'


Sujet :

VBScript

  1. #1
    Membre habitué
    Inscrit en
    Mars 2009
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 12
    Par défaut Erreur : Objet requis :'Application'
    Bonjour,

    Je souhaites pouvoir ouvrir, à l'aide de VBScript, une adresse internet.
    Cela nécessite de s'identifier.
    J'ai donc créé ce script :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Set IE=CreateObject("InternetExplorer.application") 
    ie.navigate "http://mon.site" 
    ie.visible=1
    wscript.sleep (2000)
    Application.SendKeys(login & "{TAB}" & mot_de_passe & "{ENTER}" )
    Le problème, c'est que cela me renvoie un code d'erreur :
    Ligne : 5
    Caract : 1
    Erreur : Objet requis :'Application'
    Code : 800A01A8

    Avez-vous une idée de la solution ?
    Merci

  2. #2
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    pas un truc comme :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IE.SendKeys(login & "{TAB}" & mot_de_passe & "{ENTER}" )
    ?

  3. #3
    Membre habitué
    Inscrit en
    Mars 2009
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 12
    Par défaut
    En modifiant, cela donne :

    Erreur : Cet objet ne gère pas cette propriété ou cette méthode : 'IE.SendKeys'
    Code : 800A01B6

  4. #4
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    voilà un code qui marche, tu dois pouvoir l'adapter :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Option Explicit
    Dim objShell, objIE
    Set objShell = CreateObject("WScript.Shell")
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.navigate ("http://URLOnMyIntranet//?cid=6&c=12&cpc=dt2wJiVUfnQ2")
    While objIE.Busy
    wscript.sleep 2000
    Wend
    objShell.AppActivate "Internet Explorer"
    objShell.SendKeys "{TAB}"
    objShell.SendKeys "{TAB}"
    objShell.SendKeys "username"
    objShell.SendKeys "{TAB}"
    objShell.SendKeys "password"
    objShell.SendKeys "{ENTER}"
    set objIE=Nothing
    Set objShell=Nothing
    WScript.Quit

  5. #5
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364

  6. #6
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008

  7. #7
    Membre habitué
    Inscrit en
    Mars 2009
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 12
    Par défaut
    Merci à tous,

    Je pourrais tester tout cela demain.

  8. #8
    Membre habitué
    Inscrit en
    Mars 2009
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 12
    Par défaut
    J'ai testé avec des exemples que j'ai pu trouver. Cela fonctionne pour celui proposé par bbil (je n'ai pas réussi avec les autres, mais cela vient probablement du fait que je n'arrive pas à adapter le code).

    En revanche, cela ne fonctionne pas pour le site auquel je souhaite me connecter en "automatique".
    Précision qui a son importance, je rempli les champs login et password dans une boîte de dialogue, et non pas dans la page html elle-même.


Discussions similaires

  1. [DAO][VBA]Ajout d'enregistrement : erreur objet requis
    Par charlix dans le forum VBA Access
    Réponses: 7
    Dernier message: 22/04/2007, 16h02
  2. fonction ActiveWindow.Name erreur objet requis
    Par Davik dans le forum VBA Access
    Réponses: 5
    Dernier message: 09/02/2007, 11h08
  3. [VBA E] erreur objet requis sur format horaire
    Par zoumzoum59 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/06/2006, 18h30
  4. Erreur Objet requis : 'this' --> Comprend pas!!
    Par Grozeil dans le forum ASP
    Réponses: 3
    Dernier message: 30/03/2005, 09h46
  5. Erreur "Objet requis"
    Par cindaille dans le forum Access
    Réponses: 5
    Dernier message: 26/10/2004, 00h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo