XL 2016 macro 2003 qui ne fonctionne plus avec office 2016

irne6381

XLDnaute Nouveau
Bonjour
une macro qui fonctionnait sous office 2003 (import de données venant du web) sans pb en 2003 me fait une erreur en 2016
voici une partie
While FinDePage = False
Rem effacer la feuille 1
Sheets("Travail").Select
Cells.Select
Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.rugbycoaching.eu/joueurs.php?poste=" + Tab_Place(Place) + "&club=all&journee=all&tri=points&from=" + Debut + "&to=" + Fin + "" _
, Destination:=Range("A1"))
.Name = _
"joueurs.php?poste=" + Tab_Place(Place) + "&club=all&journee=all&tri=points&from=" + Debut + "&to=" + Fin + ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

une erreur apparait à .Refresh BackgroundQuery:=False
erreur 1004 de souvenir
 

Discussions similaires


Haut Bas