Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Données venant d'une page WEB dans EXCEL

Données venant d'une page WEB dans EXCEL

2 réponses
Avatar
smf-nft
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

Je souhaite récupérer en utilisant VBA une valeur qui se trouve dans une
page Web (qui sera ouverte).

Ce sera certainement plus clair avec un exemple.

=> une page web est ouverte avec l'info que je veux (par exemple un nom)
on a dans la page "Nom : TOTO"

ce que je voudrais, c'est pouvoir récupérer dans Excel la valeur "TOTO".

je ne pense pas que les "requêtes sur le web" fonctionnent dans mon cas car
ce n'est pas toujours la même adresse. Comment faire pour récupérer une
valeur enn informant le système que c'est la page active d'IE dans laquelle
il faut chercher ?

Merci beaucoup par avance de vote aide.

Sébastien.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bouzou Le Clone
Salut,

En VBA et après avoir ajouté une référence à la bibliothèque "Microsoft
Internet Controls" :

Function GetIEText()

Dim WebCtrls As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim DocText As String
Dim I As Long, T As String

On Error Resume Next
For Each IE In WebCtrls
T = IE.Type
If Not Err Then Exit For
Next

DocText = IE.Document.Body.InnerText

I = InStr(1, DocText, "Nom : ") + 6

If I > 6 Then GetIEText = Mid(DocText, I, InStr(I, DocText, vbCr) - I)

End Function

Et dans une cellule : =GetIEText()

Bonne chance,

Bouzou

"smf-nft" a écrit dans le message de
news:
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

Je souhaite récupérer en utilisant VBA une valeur qui se trouve dans une
page Web (qui sera ouverte).

Ce sera certainement plus clair avec un exemple.

=> une page web est ouverte avec l'info que je veux (par exemple un nom)
on a dans la page "Nom : TOTO"

ce que je voudrais, c'est pouvoir récupérer dans Excel la valeur "TOTO".

je ne pense pas que les "requêtes sur le web" fonctionnent dans mon cas
car

ce n'est pas toujours la même adresse. Comment faire pour récupérer une
valeur enn informant le système que c'est la page active d'IE dans
laquelle

il faut chercher ?

Merci beaucoup par avance de vote aide.

Sébastien.




Avatar
smf-nft
Bonjour,

Merci beacucoup, je vais tester ça.

Sébastien.





Salut,

En VBA et après avoir ajouté une référence à la bibliothèque "Microsoft
Internet Controls" :

Function GetIEText()

Dim WebCtrls As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim DocText As String
Dim I As Long, T As String

On Error Resume Next
For Each IE In WebCtrls
T = IE.Type
If Not Err Then Exit For
Next

DocText = IE.Document.Body.InnerText

I = InStr(1, DocText, "Nom : ") + 6

If I > 6 Then GetIEText = Mid(DocText, I, InStr(I, DocText, vbCr) - I)

End Function

Et dans une cellule : =GetIEText()

Bonne chance,

Bouzou

"smf-nft" a écrit dans le message de
news:
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

Je souhaite récupérer en utilisant VBA une valeur qui se trouve dans une
page Web (qui sera ouverte).

Ce sera certainement plus clair avec un exemple.

=> une page web est ouverte avec l'info que je veux (par exemple un nom)
on a dans la page "Nom : TOTO"

ce que je voudrais, c'est pouvoir récupérer dans Excel la valeur "TOTO".

je ne pense pas que les "requêtes sur le web" fonctionnent dans mon cas
car

ce n'est pas toujours la même adresse. Comment faire pour récupérer une
valeur enn informant le système que c'est la page active d'IE dans
laquelle

il faut chercher ?

Merci beaucoup par avance de vote aide.

Sébastien.