Requete sur le web

[Mytå]

Bonsoir le Forum

J'utilise une requête sur le web pour récuperer des valeurs, jusque la tous fonctionne bien.

Mais je dois par contre vérifier que la requête est completée avant de lancer une autre macro sinon le fatal erreur debogage ))

J'ai essayé de récuperer la valeur de la StatusBar égale a Prêt aucun moyen.

J'ai pensé à une boucle Do...loop pour vérifier la valeur de la cellule C6, mais si l'url pas disponible je boucle en rond.

Reste la possibilité de lire le cursur Excel (croix ou sablier) ?????? aucune idée si cela est possible.

Si vous avez des idées merci de me le faire savoir.

Votre hote Mytå

P.S. si fichier à envoyer jrocmano@globetrotter.net vu que le serveur fait encore des siennes

 

[Vériland]

Bonsoir Mytå et le Forum,

Pour ton fichier tu peux toujours le mettre en ligne ici...une solution qui permet ensuite de le télécharger est d'avoir Download Express sur l'ordi...

Voici le lien pour avoir Ce lien n'existe plus...ensuite plus de blèm...

Je dis cela pour ceux qui n'auraient pas suivi ce FIL d'hier...

A+ Vériland

 

[Mytå]

Merci Vériland

J'ai télécharger le fichier et enfin je récupère les fichiers du Forum

Gros merci à toi et aux autres Forumer )))))

Amicalement Mytå {º¿º}

 

[Mytå]

Re bonsoir fidèles excelliens(iennes)

Voici la requête en question

Sub Req_web()
Open "c:\requ.iqy" For Output As #1 'crée fichier texte
'inscrit le texte de la requête
Print #1, "WEB" & Chr(10) & "1" & Chr(10) & "http://diffusion.loto-quebec.com/sw3/res/asp/hr_6.asp"
Close #1 'ferme le fichier texte
'insére la requête dans la page 3
Sheets(3).QueryTables.Add("FINDER;C:\requ.iqy", Sheets(3).Range("A1")).Refresh
Kill "c:\requ.iqy" 'supprime le fichier texte
Sheets("Update").Select
Columns("C:C").Select
Selection.NumberFormat = "dd-mmm-yyyy"
Range("A1").Select
'
'Quoi insérer ici pour attendre que la page soit complétement
'chargée avant de lancer la macro Transfert_données()
'
Call Transfert_donées
End Sub

Merci de l'intêret que vous portez à ma demande

Mytå

 

[Mytå]

Re aux exceliens (iennes)

Ma demande devait surement etre hors capacité pour le Forum, c'est pas grave j'ai dévolopper une autre méthode et cela fonctionne bien.

Je vous la donne en cadeau de gratitude , peur-etre un jour elle pourra servir a quelqu'un d'autre.

Primo créer un fichier avec le bloc-notes ici (hr_6.iqy)
dans C:\WINDOWS\Application Data\Microsoft\Requêtes\hr_6.iqy

WEB
1
http://diffusion.loto-quebec.com/sw3/res/asp/hr_6.asp

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

Secondo la macro a utiliser

Sub Req_web()
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
Call Transfert_donnees
End Sub

Un dévoué utilisateur du Forum XLD

Mytå º¿º