Bonjour

Depuis des années, je récupère des données sur INTERNET sous VBA avec EXCEL 2007 puis 2010 avec la macro suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
1210      With BROUILLON.QueryTables.Add(Connection:="URL;" & adressehttp, Destination:=BROUILLON.Range("$A$1"))
1220    .Name = Mid(adressehttp, InStrRev(adressehttp, "/") * 1)
1230    .FieldNames = True
1240    .RowNumbers = False
1250    .FillAdjacentFormulas = False
1260    .PreserveFormatting = True
1270    .RefreshOnFileOpen = False
1280    .BackgroundQuery = True
1290    .RefreshStyle = xlInsertDeleteCells
1300    .SavePassword = False
1310    .SaveData = True
1320    .AdjustColumnWidth = True
1330    .RefreshPeriod = 0
1340      .PreserveColumnInfo = True
1360      .WebSelectionType = xlEntirePage 
1380    .WebPreFormattedTextToColumns = True '1 false
1390    .WebConsecutiveDelimitersAsOne = True
1400    .WebSingleBlockTextImport = True 'false
1410    .WebDisableDateRecognition = True
1420    .WebDisableRedirections = False
1430   .Refresh BackgroundQuery:=False
1440     End With
adressehttp contient une adresse INTERNET sous la forme http:// etc
BROUILLON est une page de mon fichier EXCEL

Je pouvais récupérer n'importe quelle page INTERNET toutes les semaines pendant des années. Depuis quelques jours je n'ai plus rien dans la page BROUILLON et je n'arrive pas à comprendre pourquoi.
Comment dois-je modifier mon instruction ? ou y a-t-il un autre moyen de récupérer une page INTERNET ?
Merci d'avance