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 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
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
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
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 Subvoilà
@+ Le Pivert
Merci pour ton aide LePivert
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