VBA-Coller automatiquement par macro une page web dans Excel

Fermé
dadacourse Messages postés 129 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 - Modifié par dadacourse le 24/01/2014 à 11:37
Bonjour,
Depuis peu j'ai un problème de récupération par macro d'une page web à partir d'une adresse URL.
Auparavant, voici la requête utilisée, sachant qu'en A1 est inscrit l'URL
https://www.genybet.fr/

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & [A1].Value, _
Destination:=Range("$H$1"))
.Name = "index"
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=True
End With

Systématiquement la réponse est :
Vous devez activer Javascript dans votre navigateur afin que le site s'affiche correctement.
Ou (pour un autre site)
Accueil
Javascript désactivé
Le site pmu.fr nécessite l'activation de javascript dans votre navigateur.

Je précise au passage que le javascript est bien en permanence activé sur mes navigateurs (IE et firefox).

Merci beaucoup de votre aide à résoudre cet inconvénient
J'utilise Excel 2007 sous Windows 8.1
Jean-Luc




A voir également: