Résultats pour "macro soutirer infos site internet"

8'889 résultats pour cette recherche

Bonjour à tous,

J'aurais besoin de votre aide pour récupérer quelques infos sur un site internet et les organiser dans un tableau...

Voici ma problématique :

* j'aimerais acheter différents livres d'une même collection (Folio Biographie) à la Fnac (Aix en Provence) et pour faciliter mon choix, j'aimerais récupérer différentes infos sur tous les livres parus !

* j'aimerais que les infos suivantes soient automatiquement récupérées et copiées dans le tableau joint...

1. Titre

2. Auteur

3. Année de parution

4. Dispo à la Fnac d'Aix

Pouvez-vous me dire si c'est envisageable ? Pour l'instant, je vais des copier-coller qui me prennent un temps monstre...

Merci par avance,

Amicalement

11bouquins.xlsx (8.69 Ko)

Bonjour,

J'ai un fichier Excel (cf pièce jointe) avec une liste de liens, et pour chaque lien je souhaite récupérer les même information sur le site internet.

Est-il possible d'avoir une macro me permettant d'automatiser cette récupération d'info ?

J'ai mis en pièce jointe deux captures d'écran. En encadré rouge les infos à récupérer, en bleu l'accès pour pouvoir récupérer l'infos nombre de chambres.

Si quelqu'un pouvait m'aider je gagnerais un temps précieux.

Merci par avance !

hotels capture 1 hotel capture 2
20extrait-hotels.xlsx (11.27 Ko)

Bonjour à tous, j'espère que vous allez bien

y a t'il un moyen avec VBA d'aller télécharger un fichier sur une adresse internet?

Dans mon cas, la difficulté c'est qu'il faut que je filtre sur 1) Excel et 2) Sbf 120 https://ibb.co/VYg7dvB et je n'arrive pas à trouver l'URL exacte qui permet de téléchargement de mon fichier.

J'ai cru comprendre qu'une fois qu'on a l'URL exact c'est assez simple

Quelqu'un a une idée?

Merci et bonne journée

Bonjour,

J'essaye de me connecter à un site internet par macro dans le but de télécharger des .csv.

Pour l'instant, j'arrive à me connecter par la page avec un ID et un MPD, cliquer sur valider, changer de page, rentrer une information dans un rectangle (pour filtre par mot clé) et ensuite je dois cliquer pour valider mais je n'y arrive pas.

Voici mon code pour le moment :

Sub Connexion()
     Const READYSTATE_COMPLETE = 4
     Dim IE
     Dim elementHtml As Object

     Set IE = CreateObject("internetExplorer.Application")
     IE.Visible = True
     With IE
         .navigate "https://siteweb"
            Do While .ReadyState <> READYSTATE_COMPLETE
            Loop 'attend la fin du chargement
             DoEvents
     End With

     Dim bOk As Boolean

     Set elementHtml = IE.Document.getElementById("identifiant")
     If Not elementHtml Is Nothing Then
                bOk = True
             elementHtml.Value = "IDessai"

         Set elementHtml = IE.Document.getElementById("password")
         If Not elementHtml Is Nothing Then
                    bOk = True
              elementHtml.Value = "MDPessai"

                Set elementHtml = IE.Document.getElementById("submit")
                 If Not elementHtml Is Nothing Then
                            bOk = True
                     elementHtml.Click
        Else
            bOk = False
            End If

                Else
                    bOk = False
                    End If

                        Else
                            bOk = False
                            End If

        'deplacement page recherche
         With IE
        .navigate "https://siteweb/recherche"
        Do While .ReadyState <> READYSTATE_COMPLETE
            Loop
        DoEvents
        'Loop  'attend la fin du chargement
        End With

        'accès quantième
         Set elementHtml = IE.Document.getElementById("code_Qnt")
         If Not elementHtml Is Nothing Then
                bOk = True
         elementHtml.Value = "rouge"
                End If
'=======================problème=========================== 

        Set elementHtml = IE.Document.getelementsbyname("search")
        If Not elementHtml Is Nothing Then
        bOk = True
        elementHtml.Click
        Else
          bOk = False
            End If

   'If bOk Then MsgBox "connexion réussie!" Else MsgBox "connexion échouée!"
        Set IE = Nothing
 End Sub

Le probleme, c'est qu'il ne trouve pas le "search" car ce n'est pas un "<input" mais un "<button".

Vous auriez une idée de la commande svp ? ou une idée ou chercher ^^

Merci d'avance

Bonne fin de week-end

Bonjour,

Je ne sais pas si cela est faisable et légal (je pense que oui vu c'est à disposition public), mais j'aimerais en VBA pouvoir aller récupérer le code source d'une page Internet.

Par exemple, je lui donne en paramètre cette page là: http://www.jeux.fr/, et lui me sort en retour:

<!DOCTYPE html>
<!--[if lt IE 8]><html class="lt-ie9 lt-ie8"><![endif]-->
<!--[if IE 8]><html class="lt-ie9 ie8"><![endif]-->
<!--[if IE 9]><html class="ie9"><![endif]-->
<!--[if gt IE 9]><!--><html><!--<![endif]-->
    <head>
        <meta charset="utf-8"/>
<meta property="portal:site:id" content="11"/>
<meta property="portal:channel:id" content="1"/>
<meta property="sg:type" content="portal"/>
<meta name="viewport" content="width=device-width, maximum-scale=1.0, initial-scale=1.0, user-scalable=no, minimal-ui"/>
<meta name="description" content="Jouez à tous les jeux gratuits sur jeux.fr. Des milliers de jeux en ligne à découvrir pour les enfants et les adultes sur Jeux.fr"/>
<meta name="keywords" content="Jeux en linge, jeux gratuits, jeux gratuits en ligne, jeux des puzzles, jeux d'action, jeux d'aventure, jeux de sport,  jeux multijoueurs"/>
<meta name="apple-mobile-web-app-status-bar-style" content="black-translucent"/>
<meta name="apple-mobile-web-app-capable" content="yes"/>
<meta property="portal:page:type" content="HP"/>
<meta name="google-site-verification" content="UpTjHFxpwHaFEnJ_hjDJ3hhVCu8GORK16YKsn8W01_M"/>
<meta property="og:site_name" content="jeux.fr"/>

        <title>Jeux.fr - Jeux Gratuits, Jeux en Ligne, Jeu Gratuit, Jeux Online!</title>

        <link rel="shortcut icon" href="/favicon.ico" type="image/x-icon">

<link rel="stylesheet" type="text/css" href="/wdg/css_aggregator-4.14.5/css/family/theme.css"/>

                <script type="application/ld+json">
{
    "@context": "http://schema.org",
    "@type": "WebSite",
    "url": "http://www.jeux.fr/",
    "potentialAction": {
        "@type": "SearchAction",
        "target": "http://www.jeux.fr/chercher/?searchTerm={search_term_string}",
        "query-input": "required name=search_term_string"
    }
}
</script>  
...

        <script>window.lightningjs||function(c){function g(b,d){d&&(d+=(/\?/.test(d)?"&":"?")+"lv=1");c[b]||function(){var i=window,h=document,j=b,g=h.location.protocol,l="load",k=0;(function(){function b(){a.P(l);a.w=1;c[j]("_load")}c[j]=function(){function m(){m.id=e;return c[j].apply(m,arguments)}var b,e=++k;b=this&&this!=i?this.id||0:0;(a.s=a.s||[]).push([e,b,arguments]);m.then=function(b,c,h){var d=a.fh[e]=a.fh[e]||[],j=a.eh[e]=a.eh[e]||[],f=a.ph[e]=a.ph[e]||[];b&&d.push(b);c&&j.push(c);h&&f.push(h);return m};return m};var a=c[j]._={};a.fh={};a.eh={};a.ph={};a.l=d?d.replace(/^\/\//,(g=="https:"?g:"http:")+"//"):d;a.p={0:+new Date};a.P=function(b){a.p[b]=new Date-a.p[0]};a.w&&b();i.addEventListener?i.addEventListener(l,b,!1):i.attachEvent("on"+l,b);var q=function(){function b(){return["<head></head><",c,' onload="var d=',n,";d.getElementsByTagName('head')[0].",d,"(d.",g,"('script')).",i,"='",a.l,"'\"></",c,">"].join("")}var c="body",e=h[c];if(!e)return setTimeout(q,100);a.P(1);var d="appendChild",g="createElement",i="src",k=h[g]("div"),l=k[d](h[g]("div")),f=h[g]("iframe"),n="document",p;k.style.display="none";e.insertBefore(k,e.firstChild).id=o+"-"+j;f.frameBorder="0";f.id=o+"-frame-"+j;/MSIE[ ]+[6|7|8]/.test(navigator.userAgent)&&(f[i]="javascript:false");f.allowTransparency="true";l[d](f);try{f.contentWindow[n].open()}catch(s){a.domain=h.domain,p="javascript:var d="+n+".open();d.domain='"+h.domain+"';",f[i]=p+"void(0);"}try{var r=f.contentWindow[n];r.write(b());r.close()}catch(t){f[i]=p+'d.write("'+b().replace(/"/g,String.fromCharCode(92)+'"')+'");d.close();'}a.P(2)};a.l&&setTimeout(q,0)})()}();c[b].lv="1";return c[b]}var o="lightningjs",k=window[o]=g(o);k.require=g;k.modules=c}({});window.usabilla_live = lightningjs.require("usabilla_live", "//w.usabilla.com/232bf8c2bee0.js");</script>
        <!-- 0_031AB1AB -->
    </body>
</html>

Ce qui correspond au code source associé. Pour le voir sur Google chrome il suffit de faire clic-droit sur la page Internet puis "Afficher le code source de la page".

Merci d'avance des retours

Bonjour à tous,

Je voulais vous poser une question au sujet des extractions de datas d'un site internet.

Pour une page web standard comme google je comprend bien qu'il faut utiliser la fonction Données>Web

Mais ma question se pose pour un site web sécurisée par login et mdp.

En résumé voici ma demande :

Connexion au site internet

Saisie identifiant / MDP

Accès page sécurisée

Bouton à cliquez pour aller sur une autre page

Cette nouvelle page est à importer dans Excel pour traitement des datas.

Merci de m'indiquer si cela est réalisable avec Excel/VBA ? est ce facile ? ou utilisation d'un autre logiciel ?

Merci de votre aide.

A bientôt,

Stéphane

Bonjour

Je cherche un moyen de récupérer les statistiques des joueurs sur statfoot be dans un fichier Excel

Quelqu'un peut m'aider?

Merci

Bonjour à tous,

Je voulais savoir s'il était possible de relier un fichier excel à des données d'un site internet pour automatiser ?

Bonne journée à tous

Bonjour tout le monde,

J'ai un projet qui m'a été attribué sur le suivi de projet.

Je travail sur un site internet ou je peux extraire toutes les données de mes projets dans un excel.

Il faut que je puisse le mettre à jour régulièrement de façon rapide et facile pour que tout le monde puisse l'utiliser.

Mon premier export du site est ma base car j'ai effectué quelque modification. J'aimerais trouver une solution qui me permettrait d'appuyer sur un bouton sur mon excel et que les données manquantes se mettent directement dessus.

Je n'ai pas vraiment d'idée pour réussir ce que je souhaite. Il est peut être possible de créer une moulinette qui permet de passer les données d'un excel à un autre afin de le mettre à jour.

Qu'en pensez vous ? Avez vous des idées pour m'aider ?

Merci d'avance.

BAKI

Bonjour,

Je souhaiterai relier les informations de ma feuille de calcul à un site internet afin d'actualiser les valeurs de ma feuille tous les jours.

Quelqu'un saurait comment je dois m'y prendre ou est-ce une action impossible ?

Merci d'avance de vos futures réponses

Bonjour

Je me permet de revenir vers vous car apres une recherche sur ce forum j'ai trouvé ce code https://forum.excel-pratique.com/post428259.html?hilit=queryurl#p428259

Sub queryurl()

    Set ie = CreateObject("InternetExplorer.application")

    qurl = "https://www.leboncoin.fr/motos/offres/bretagne/occasions/?th=1&q=forty%20eight%20stage&parrot=0&pe=14&rs=2010&me=10000&ccs=1000"

    ie.navigate qurl
    t = Timer
    timeout = False
    'On Error GoTo terreur
   Do

    DoEvents
    Loop Until ie.readyState = 4
    Set doc = ie.document

    montexte = Split(doc.body.innerHTML, vbCrLf)

    For Maligne = 0 To UBound(montexte)
        Range("A" & Maligne + 1).Value = montexte(Maligne)
    Next Maligne

End Sub

Je voulais m'en servir pour recupere la liste des article qui m'interesse le seul soucis c'est que cela n'extrait pas en totalité le code source mais seulement le debut donc ne me sert à rien et je ne sait pas trop dans quel direction regardé pour reusssir a extraire la totalité?

NB: Avant tout commentaire sur l'extraction d'info du site leboncoin je tient a souligner que c'est dans un usage strictement privée et avec l'accord préalable de la Societe LeBonCoin

Cordialement

50classeur1.xlsm (45.48 Ko)

Bonjour à tous.

Voilà mon souci. Je travaille actuellement sur une base de données. Dans le fichier Excel que vous trouverez plus bas, il y a deux feuilles. La première est la base de données avec le nom du client, ses coordonnées diverses (en l'occurence il n'y a que l'adresse mail) et enfin son site internet. Ma deuxième feuille peut être assimilée à une fiche résumée du client. Je choisis dans une liste déroulante un client, pour obtenir toutes les informations. Pour ce qui est de l'adresse mail, quand on clique dessus, cela ouvre automatiquement Outlook. Cependant pour le site internet, je vois que le nom du site change mais pas le lien, la cellule ouvre tout le temps le même site internet...

Voici une feuille "brouillon" reflétant ma vraie base de données.

Merci pour votre aide.

Bonjour à tous

Pour les petits malins avance la date sur leur PC, je chercher une macro qui va aller chercher la date sur internet et qui servira de référence pour mes protections

merci

Bonjour,

J'ai bien conscience que normalement il vaut mieux vous fournir un fichier excel, mais il est vide.

Je le mets quand même car j'y ai mis un morceaux de code que j'ai trouvé ici, mais que je ne parviens pas à adapter à mon cas, avec une erreur 91 (?)

Aussi, je vous solicite pour la résolution de mon problème.

Je travaille dans une entreprise ou nous nous connectons aléatoirement sur des serveurs et de ce fait, nos favoris et mdp ne sont pas gardés par le système d'un jour à l'autre.

J'ai besoin chaque jour de remplir les nom d'entreprise, user et mot de passe sur les différents site que j'ai pour la géolocalisation de mes véhicules notamment.

Pouvez vous me venir en aide ?

Edit : Oups, j'avais oublié le fichier

Bonjour à tous,

Mon problème est le suivant, j'ai une macro qui se connecte sur un site Internet et ouvre un fichier, et à la fin je souhaite basculer vers ce nouveau fichier avec le code suivant :

Workbooks(Workbooks.Count).Activate

Ci dessous la fin du code de téléchargement :

'On clique sur le bouton export pour génerer le portefeuille de performances historiques
      Doc.parentWindow.execScript "getExportgp()", "JavaScript"

      'On laisse 30 secondes pour qu'il crée le fichier et propose de l'enregistrer
      Attendre (10)

      'Ouverture de la fenetre de téléchargement
      Touche ("^j")
      Attendre (2)

      Touche ("{RIGHT}")
      Attendre (1)

      Touche ("{RIGHT}")
      Attendre (1)

      'On simule la touche Entrée et alt + F4
      Touche ("~")
      Touche ("%{F4}")

      'Ferme Internet Explorer
      FermerIE

      'Empêche la création d'une nouvelle instance
      Application.Wait Now + TimeValue("00:00:05")

Il n'est pas possible de récupérer une URL due au fait que le site génère le fichier lui même.

Cependant tant que la macro tourne le fichier ne s'ouvre pas.

Si je mets une pause dans ma macro avant le Workbooks(Workbooks.Count).Activate et que je fait f8 (pas à pas), à ce moment là ça fonctionne et il bascule correctement sur mon nouveau fichier.

Ma question est : comment dire à VBA d'attendre que le nouveau fichier soit ouvert avant de continuer le code ? J'ai essayé sleep, des boucles, Application.Wait, ça ne fonctionne pas car tant qu'un code est en train de tourner il n'ouvre pas le fichier.

Merci par avance pour votre aide.

Vincent.

Bonjour à tous,

il y a quelques temps je m'étais déjà adressé à la communauté pour un problème de plage glissante que j'ai réussi à résoudre à vous. J'ai continué à travailler sur mon outil et j'en voyais la fin jusqu'à ce que YAHOO décide de fermer un de ses sites et rende la macro que j'avais récupérer obsolète. Du coup, je me tourne vers vous pour pouvoir mettre à jour cette macro.

A l'origine l'URL à partir duquel était téléchargé les données était le suivant :

Seulement, il me semble (n'hésitez pas à m'arrêter si j'ai loupé quelque chose) que cet URL ne fonctionne plus. L'idée serait donc de faire matcher les macros " GETDATA" et et celle qui se rapporte au bouton " download all stocks" avec l'URL suivant : https://finance.yahoo.com/quote/AC.PA/history?p=AC.PA

Par la suite j'me pencherai sur comment faire s'adapter les graphique à une plage variable, mais c'est la prochaine étape.

J'vous remercie par avance de me filer un petit coup de main, j'ai essayé de modifier la macro moi même, sans succès jusqu'à maintenant.

Bonjour,

Est-il possible de créer un lien vers un site internet et de saisir automatiquement un identifiant + mot de passe afin de

s'y identifier ?

Le but étant de générer une liste de identifiant et mot sur un site. Car actuellement si il n'y a pas un activation tous les 6 mois il faut

réactualiser le mot de pass.

Merci pour vos réponses

Bonjour a tous,

Je viens sur ce forum, car je ne trouve aucun renseignement ailleurs concernant ma requête.

En effet, je dois créer une macro qui permet d’accéder a des fichiers EXCEL présents sur un serveur internet Quickr, pouvoir les modifier et les enregistrer sur le serveur.

J'ai déjà créer la partie Modification, mais pour finaliser mon programme il m'est nécessaire de savoir comment :

- Accéder au serveur sécurisé via la macro (seul la macro aura les accès nécessaires afin que l'utilisateur puisse se connecter sur le serveur, question de sécurité des données.)

-Pouvoir modifier et enregistrer les fichiers présents sur ce même serveur automatiquement. (Ma macro empêche déjà l'utilisateur a modifier les données rentrées le mois précédent)

Pour résumé : Accéder a un dossier spécifique avec des accès spécifiques sur un serveur internet, et pouvoir modifier enregistrer les fichiers Excel a l’intérieur.

En espérant avoir été assez clair et précis,

En attendant une réponse positive avec impatience....

Merci !

Bonjour,

je suis étudiante et afin de trouver des informations rapidement, j'ai décidé de me faire une base de données.

Je dois répertorier des informations concernant des fonds de gestion.

J'ai repris un fichier qui allait déjà chercher quelques informations et je l'ai adapté.

Malheureusement, une des parties de mon programme ne fonctionne pas.

Il s'agit de la partie du code qui doit chercher les ratio et les performances.

Voilà, si une âme charitable passait par là et pouvait m'apporter quelques informations afin d'avancer,

cela serait génial.

Merci par avance

51essai-these.xlsm (99.12 Ko)

Bonjour le forum,

Afin de realiser un classement chaque semaine de compte sur instagram, j'aimerai quand mon tableau importe les données en executant une macro.

J'ai essayé mais la donnée que je veux ne s'importe pas.

L'idée cest que la macro aille chercher le total follower de cette page

https://www.ninjalitics.com/skadi.thebordercollie.html

Je vous laisse un screenshot et mon fichier exemple

Merci beaucoup!

capture

Recherches récentes

copier vide apparaissesuite tabulationtarget address plageformulaire ordre tabulation6068congecalcul conge payegraphesclassement tableauclassementremplacer passage ligneuserformsap guifiltre multicriterefiltre multicritere vbasalairesusfformulaire salairescondition datesomme date ligne