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

Macros et VBA Excel Discussion :

Déclencher un téléchargement d'une page web par VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Août 2004
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 73
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : Août 2004
    Messages : 3
    Par défaut Déclencher un téléchargement d'une page web par VBA
    Il est possible d'exploiter les pages web par VBA.
    Cependant je n'arrive pas à déclencher le téléchargement de fichier txt automatiquement en cliquant sur le bouton télécharger par une macro vba exemple :http://www.abcbourse.com/download/te..._intraday.aspx
    Ou je voudrais déclencher le bouton télécharger en bas à gauche

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Essaie ceci :
    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
    19
    20
    21
    22
    Sub Click_Telecharger()
     
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCbouton As Object
     
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("http://www.abcbourse.com/download/telechargement_intraday.aspx")
     
    ' attente de fin de chargement de la page
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
     
    Set IEdoc = ie.Document
     
    'action sur le bouton Télécharger
    Set DOCbouton = IEdoc.getElementsByName("ctl00$BodyABC$ImageButton1").Item '<-- nom du bouton récupéré via le code source de la page
    DOCbouton.Click
     
    End Sub

  3. #3
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    J'ai oublié de préciser un petit détail...
    Pour que le code ci-dessus fonctionne, il faut activer la référence Microsoft Internet Controls

Discussions similaires

  1. Réponses: 1
    Dernier message: 17/02/2015, 02h53
  2. Forcer le téléchargement d'une page web
    Par max_60 dans le forum Langage
    Réponses: 4
    Dernier message: 14/10/2008, 10h48
  3. Comment envoyer une page web par mail
    Par zgoulanda dans le forum Débuter
    Réponses: 3
    Dernier message: 02/10/2008, 09h30
  4. Réponses: 13
    Dernier message: 20/07/2007, 13h51
  5. [Mail] envoyer une page web par mail
    Par Zen_Fou dans le forum Langage
    Réponses: 8
    Dernier message: 06/04/2006, 17h06

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