Discussion :

[EricDgn]

Ceci fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bpascal123]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

Pascal

[Invité]

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!

[EricDgn]

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.

[EricDgn]

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