WebBrowser - Script

Ceci fonctionne:

Code:

---

WebBrowser1.Navigate2 "http://www.zonebourse.com/zbcache/charts/ObjectChart.aspx?Name=1409924&Type=Custom&Intraday=1&Width=520&Height=360&Cycle=DAY1&Duration=6&TopMargin=10&Render=OHLCBars&ShowCopyright=2&ShowName=1"

---

Ceci ne fonctionne pas:

Code:

---

WebBrowser1.Navigate2 "http://www.zonebourse.com/zbcache/reuters/Draw_Chart.php?p=17,1,360,280,&RepNo=AFA2D&L1"

---

C'est sans doute lié à un JavaScript contenu dans le 2e lien.
Un idée pour résoudre cela ?
Merci

Bonjour,

Pour voir si c'est javascript/flash ou autre qui bloque la macro, il faut essayer d'ouvrir la page dans un navigateur avec javascript désactivé ou un navigateur de type webkit qui est éloigné des technos web chrome et autre moteur V8.

Attention votre addresse ip peut aussi ne pas pouvoir accéder à la page, effacer les données de navigations, rafraichir votre adresse ip, utiliser un proxy pour voir, il existe beaucoup de solutions et d'outils à ce niveau mais ce n'est pas le sujet de ce forum.

Sinon voici les paramètres macro vba ci-dessous avec la methode querytables que vous pouvez peut être étudier comme alternative à navigate

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim url As String url = "URL;http://www.zonebourse.com/zbcache/reuters/Draw_Chart.php?p=17,1,360,280,&RepNo=AFA2D&L1" With Worksheets("Sheet1").QueryTables.Add(Connection:=url, Destination:=Worksheets("Sheet1").Range("A1")) .Name = "zonebourse.com" .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With

---

Vous pouvez aussi essayer:

Code:

---

Workbooks.Open Filename:="http://www.zonebourse.com/zbcache/reuters/Draw_Chart.php?p=17,1,360,280,&RepNo=AFA2D&L1"

---

Cordialement

Pascal

Bonjour,
Les différentes adresse proposé ne contiennent pas de javascript, ce qui ne veut pas dire que la requête n'appelle pas de javascript côté serveur!


Il faut inhiber le javascript de WebBroser charger l'url, réactiver le javascript et faire un refresh du webBroser!

Merci pour vos suggestions.

Pour la première, les 2 codes renvoient la même réponse "Merci d'autoriser JavaScript dans les préférences de votre navigateur pour utiliser les graphiques dynamiques."

Pour la seconde, j'ai effectué la désactivation des Scripts ASP dans IE, le lien http://www.zonebourse.com/zbcache/re...RepNo=AFA2D&L1 renvoie alors le même message "Merci d'autoriser JavaScript dans les préférences de votre navigateur pour utiliser les graphiques dynamiques."
J'ai ensuite réactivé les Scripts ASP dans IE, et le lien fonctionne correctement dans IE, par contre dans Excel, le WebBrowser renvoie 8 fois le message "Une erreur est survenue dans le script de cette page".

(Note: le WebBrowser fonctionnait encore correctement il y a quelques semaines !?!)

Cordialement.

Voilà, maintenant cela fonctionne à nouveau correctement, sans modification apportée au dossier. :?
? problème côté fournisseur ?