Automatisation importation d'un contenu web

Fermé

Inv-Tuls Messages postés 3 Date d'inscription jeudi 15 novembre 2018 Statut Membre Dernière intervention 17 novembre 2018 - Modifié le 15 nov. 2018 à 20:59
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 nov. 2018 à 12:11

Bonjour,

Je suis face à un problème concernant une importation d'un tableau web venant d'un site sur excel dans le cadre d'un projet universitaire. Je ne sais pas si c'est possible de le faire de manière automatisée avec un bouton (car le site reste fixe) ou bien avec une requête excel mais je n'ai pas encore trouvé de moyen de le faire.
Afin de garder la mise en forme, un screenshot de cette partie du site (le tableau) serait optimal. Quelqu'un aurait-il une idée ou une piste ?

Merci d'avance

A voir également:

Automatisation importation d'un contenu web
Instagram web - Guide
Traduire une page web - Guide
Word a trouvé du contenu illisible - Guide
Web office - Guide
Capture web - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 nov. 2018 à 16:34

Bonjour,

Avec un Webbrowser afficher le site dans un UserForm et faire une capture d'écran :

https://www.cjoint.com/c/HKqpGPaJabQ

Voilà

Inv-Tuls Messages postés 3 Date d'inscription jeudi 15 novembre 2018 Statut Membre Dernière intervention 17 novembre 2018
16 nov. 2018 à 19:40

Merci beaucoup pour ta réponse cs_Le Pivert, cela résout une bonne partie de mon problème.
En fait, j'ai oublié de mentionner que pour que je fasse mon screenshot sur le site, je dois d'abord appuyer sur un bouton sur ce site qui filtre une partie des données de mon tableau

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 nov. 2018 à 09:38

Tu appuies sur ton bouton et ensuite sur Capture d'écran.
Pour cela il faut modifier le code comme ceci:

Dim maPageHtml As HTMLDocument
Private Sub CommandButton1_Click()
Me.WebBrowser1.Navigate "https://www.commentcamarche.net/forum/affich-35697115-automatisation-importation-d-un-contenu-web" 'mettre l'adresse du site
End Sub
Private Sub CommandButton2_Click()
Dim Ws As Worksheet
Set maPageHtml = WebBrowser1.Document
Me.WebBrowser1.Navigate maPageHtml.URL
  'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
     'Ajoute une feuille pour coller l'image de la forme
    Set Ws = Sheets.Add
    Ws.Paste
    'impression centrée dans la page
    With Ws
        .PageSetup.CenterHorizontally = True
        .PageSetup.CenterVertically = True
        '.PrintOut
    End With
End Sub

voilà

@+ Le Pivert

Inv-Tuls Messages postés 3 Date d'inscription jeudi 15 novembre 2018 Statut Membre Dernière intervention 17 novembre 2018
17 nov. 2018 à 12:03

Merci. J'avais déjà eu ce problème, mais c'est normal qu'un message d'erreur me soit renvoyé en disant "Utilisation incorrecte du mot Me " ?

Merci pour ton aide LePivert

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 nov. 2018 à 12:11

Tu n'est pas obligé de mettre Me tu peux mettre simplement :

WebBrowser1.Navigate maPageHtml.URL

Voici un fichier à dezipper avec 2 classeurs:

Un avec l'UserForm redimensionnable et le second sans barre de titre

Tu as le choix

https://www.cjoint.com/c/HKrlimBt2BQ

@+ Le Pivert

Discussions similaires

Savoir de quel ville à été envoyé le message

Youtube: Ce contenu n'est pasdisponible dans votre pays

Web-DL, DVDRIP-DIVX-MP et DVDSCR : ça veut dire quoi ?

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters