Je voudrais accéder de manière automatique à une page WEB et récupérer non
seulement la partie HTML (ce que je fais couramment), mais le code
javascript qui contient des données que j'utilise.
Manuellement je procède ainsi:
1 j'ouvre la page dans l'explorateur
2 j'affiche le code source dans le Bloc Note
3 j'enregistre le code source en fichier txt
4 je lance VBA qui traite le fichier txt
Merci d'avance à ceux qui auront la gentillesse de me répondre
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
JB
Bonjour,
Sub Tout() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne ActiveCell = ligne ActiveCell.Offset(1, 0).Select Loop Close #1 End Sub
Sub Script() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne If InStr(UCase(ligne), "<SCRIPT") Then témoin = True End If If InStr(UCase(ligne), "</SCRIPT") Then témoin = False End If If témoin = True Then ActiveCell = ligne ActiveCell.Offset(1, 0).Select End If Loop Close #1 End Sub
Cordialement JB
Bonjour,
Sub Tout()
[A1].Select
Open "essai.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
ActiveCell = ligne
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
Sub Script()
[A1].Select
Open "essai.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
If InStr(UCase(ligne), "<SCRIPT") Then
témoin = True
End If
If InStr(UCase(ligne), "</SCRIPT") Then
témoin = False
End If
If témoin = True Then
ActiveCell = ligne
ActiveCell.Offset(1, 0).Select
End If
Loop
Close #1
End Sub
Sub Tout() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne ActiveCell = ligne ActiveCell.Offset(1, 0).Select Loop Close #1 End Sub
Sub Script() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne If InStr(UCase(ligne), "<SCRIPT") Then témoin = True End If If InStr(UCase(ligne), "</SCRIPT") Then témoin = False End If If témoin = True Then ActiveCell = ligne ActiveCell.Offset(1, 0).Select End If Loop Close #1 End Sub
Cordialement JB
Dominique Ma
Merci JB mais... J'ai un problème avec la lecture de la page WEB:
Quand je veux récupérer une page web, je crée une query table:
Auquel cas, je n'ai pas le script, mais seulement le html
Si j'essaye comme tu sembles l'indiquer d'accéder par:
Open "www.site.page.htm?champ1=valeur1&champ2=valeur2" For Input As #1
J'obtiens une erreur 76 "Chemin d'accès introuvable"
Cordialement Dominique
"JB" a écrit dans le message de news: Bonjour,
Sub Tout() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne ActiveCell = ligne ActiveCell.Offset(1, 0).Select Loop Close #1 End Sub
Sub Script() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne If InStr(UCase(ligne), "<SCRIPT") Then témoin = True End If If InStr(UCase(ligne), "</SCRIPT") Then témoin = False End If If témoin = True Then ActiveCell = ligne ActiveCell.Offset(1, 0).Select End If Loop Close #1 End Sub
Cordialement JB
Merci JB mais...
J'ai un problème avec la lecture de la page WEB:
Quand je veux récupérer une page web, je crée une query table:
Auquel cas, je n'ai pas le script, mais seulement le html
Si j'essaye comme tu sembles l'indiquer d'accéder par:
Open "www.site.page.htm?champ1=valeur1&champ2=valeur2" For Input As #1
J'obtiens une erreur 76 "Chemin d'accès introuvable"
Cordialement
Dominique
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1134134057.373246.94230@g47g2000cwa.googlegroups.com...
Bonjour,
Sub Tout()
[A1].Select
Open "essai.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
ActiveCell = ligne
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
Sub Script()
[A1].Select
Open "essai.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
If InStr(UCase(ligne), "<SCRIPT") Then
témoin = True
End If
If InStr(UCase(ligne), "</SCRIPT") Then
témoin = False
End If
If témoin = True Then
ActiveCell = ligne
ActiveCell.Offset(1, 0).Select
End If
Loop
Close #1
End Sub
Auquel cas, je n'ai pas le script, mais seulement le html
Si j'essaye comme tu sembles l'indiquer d'accéder par:
Open "www.site.page.htm?champ1=valeur1&champ2=valeur2" For Input As #1
J'obtiens une erreur 76 "Chemin d'accès introuvable"
Cordialement Dominique
"JB" a écrit dans le message de news: Bonjour,
Sub Tout() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne ActiveCell = ligne ActiveCell.Offset(1, 0).Select Loop Close #1 End Sub
Sub Script() [A1].Select Open "essai.htm" For Input As #1 Do While Not EOF(1) Line Input #1, ligne If InStr(UCase(ligne), "<SCRIPT") Then témoin = True End If If InStr(UCase(ligne), "</SCRIPT") Then témoin = False End If If témoin = True Then ActiveCell = ligne ActiveCell.Offset(1, 0).Select End If Loop Close #1 End Sub