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å º¿º