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
Michel Pierron
Bonsoir Emcy;
Sub GetUrlText() ' Adresse de la page à récupérer Const thisURL = "http://Test.free.fr" Dim f%, FileName$ FileName = ThisWorkbook.Path & "UrlSource.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", thisURL, False .send On Error Resume Next Kill FileName: f = FreeFile Open FileName For Output As #f Print #f, .responseText Close #f End With
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
Bonsoir Emcy;
Sub GetUrlText()
' Adresse de la page à récupérer
Const thisURL = "http://Test.free.fr"
Dim f%, FileName$
FileName = ThisWorkbook.Path & "UrlSource.txt"
With CreateObject("Microsoft.XMLHTTP")
.Open "get", thisURL, False
.send
On Error Resume Next
Kill FileName: f = FreeFile
Open FileName For Output As #f
Print #f, .responseText
Close #f
End With
MP
"Emcy" <toto@bla.com> a écrit dans le message de news:
ODvds8$VGHA.5036@TK2MSFTNGP15.phx.gbl...
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre
dans un fichier text ?
Sub GetUrlText() ' Adresse de la page à récupérer Const thisURL = "http://Test.free.fr" Dim f%, FileName$ FileName = ThisWorkbook.Path & "UrlSource.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", thisURL, False .send On Error Resume Next Kill FileName: f = FreeFile Open FileName For Output As #f Print #f, .responseText Close #f End With
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
Michel Pierron
Bonjour Emcy; Note que si tu veux gérer correctement les caractères accentués (les pages Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet AdoDb:
Sub GetUrlText() ' Adresse de la page à récupérer Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml" Dim f%, TxtFile$, oStm As Object TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", URL, False .send Set oStm = CreateObject("adodb.stream") oStm.Type = 1 ' Type Binary oStm.Open oStm.Write .responseBody oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite Set oStm = Nothing End With End Sub
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
Bonjour Emcy;
Note que si tu veux gérer correctement les caractères accentués (les pages
Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet
AdoDb:
Sub GetUrlText()
' Adresse de la page à récupérer
Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml"
Dim f%, TxtFile$, oStm As Object
TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt"
With CreateObject("Microsoft.XMLHTTP")
.Open "get", URL, False
.send
Set oStm = CreateObject("adodb.stream")
oStm.Type = 1 ' Type Binary
oStm.Open
oStm.Write .responseBody
oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite
Set oStm = Nothing
End With
End Sub
MP
"Emcy" <toto@bla.com> a écrit dans le message de news:
ODvds8$VGHA.5036@TK2MSFTNGP15.phx.gbl...
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre
dans un fichier text ?
Bonjour Emcy; Note que si tu veux gérer correctement les caractères accentués (les pages Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet AdoDb:
Sub GetUrlText() ' Adresse de la page à récupérer Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml" Dim f%, TxtFile$, oStm As Object TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", URL, False .send Set oStm = CreateObject("adodb.stream") oStm.Type = 1 ' Type Binary oStm.Open oStm.Write .responseBody oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite Set oStm = Nothing End With End Sub
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
Emcy
merci
"Michel Pierron" a écrit dans le message de news:
Bonjour Emcy; Note que si tu veux gérer correctement les caractères accentués (les pages Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet AdoDb:
Sub GetUrlText() ' Adresse de la page à récupérer Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml" Dim f%, TxtFile$, oStm As Object TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", URL, False .send Set oStm = CreateObject("adodb.stream") oStm.Type = 1 ' Type Binary oStm.Open oStm.Write .responseBody oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite Set oStm = Nothing End With End Sub
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
merci
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
uU7JbPJWGHA.5012@TK2MSFTNGP05.phx.gbl...
Bonjour Emcy;
Note que si tu veux gérer correctement les caractères accentués (les pages
Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet
AdoDb:
Sub GetUrlText()
' Adresse de la page à récupérer
Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml"
Dim f%, TxtFile$, oStm As Object
TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt"
With CreateObject("Microsoft.XMLHTTP")
.Open "get", URL, False
.send
Set oStm = CreateObject("adodb.stream")
oStm.Type = 1 ' Type Binary
oStm.Open
oStm.Write .responseBody
oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite
Set oStm = Nothing
End With
End Sub
MP
"Emcy" <toto@bla.com> a écrit dans le message de news:
ODvds8$VGHA.5036@TK2MSFTNGP15.phx.gbl...
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre
dans un fichier text ?
Bonjour Emcy; Note que si tu veux gérer correctement les caractères accentués (les pages Web sont souvent encodées en UTF-8), il vaut mieux passer par un objet AdoDb:
Sub GetUrlText() ' Adresse de la page à récupérer Const URL = "http://www.excelabo.net/rss/excelabo-rss2.xml" Dim f%, TxtFile$, oStm As Object TxtFile = ThisWorkbook.Path & "excelabo-rss2.txt" With CreateObject("Microsoft.XMLHTTP") .Open "get", URL, False .send Set oStm = CreateObject("adodb.stream") oStm.Type = 1 ' Type Binary oStm.Open oStm.Write .responseBody oStm.SaveToFile TxtFile, 2 ' Save / Create / OverWrite Set oStm = Nothing End With End Sub
MP
"Emcy" a écrit dans le message de news: ODvds8$
bonjour,
est-il possible en vba de reuperer le code d'une page web et de la mettre dans un fichier text ?
