requête web vba

[Bruno]

Bonjour,

je lance une requête web en vba pour télécharger une page web dans excel. jusque là tout fonctionne.

je souhaiterais ensuite être sûr que cette page Web est téléchargée pour continuer mon programme et je ne sais pas comment faire !

Merci d'avance

 

[Mytå]

salut bruno

a creer avec le bloc-notes dans
C:\WINDOWS\Application Data\Microsoft\Requêtes\hr_6.iqy

WEB
1
http://url_de_la_page

Selection=EntirePage
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False

la sub de la requete

Sub Req_web()
Sheets("Triage").Select
Range("T10").Value = "LIRE TIRAGE"
Application.ScreenUpdating = False
Sheets("Update").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;C:\WINDOWS\Application Data\Microsoft\Requêtes\hr_6.iqy", Destination _
:=Sheets("Update").Range("A1"))
.Name = "DonnéesExternes_1"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
Sheets("Triage").Activate
Application.ScreenUpdating = True
Call Transfert_donnees
Application.ScreenUpdating = False
Call Stats
Call dernier_tirage
Application.ScreenUpdating = True
Sheets("Triage").Activate
End Sub

En esperant t'avoir depanné avec une idée de base que j'utilise deja pour un programme

Mytå