Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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;Ce lien n'existe plus" + 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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…