format unicode dans une requête web

Re : format unicode dans une requête web

Bonsoir PAP 77

Je suis très étonné par ta question parce qu’il n’est pas possible de télécharger les historiques à partir d’ABCbourse, à moins d’avoir un abonnement. Si c’est le cas, tu peux demander à Rodolphe une solution pour excel

albert

Re : format unicode dans une requête web

Bonjour et merci de m'avoir répondu
Voici la macro


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/04/2008 par Pap77
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.abcbourse.com/Graphes/display.aspx?s=FR0003500008p", _
Destination:=Range("A1"))
.Name = "display.aspx?s=FR0003500008p"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "41"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Et voici le résultat : Dernier 4Â 961,69

Le  n'apparaît qu'en séparateur des milliers

Existe-t-il une instruction de formatage à inclure dans la macro pour que le  n'apparaisse plus ou faut-il le supprimer par une autre macro?
Merci de vos conseils
A+

Re : format unicode dans une requête web

Bonjour PAP77,

J’obtiens le même résultat : 4Â 961,69


Il faut travailler la chaîne de caractères avec un truc du genre STXT(), exercice périlleux si le nombre de caractères n’est pas toujours le même. (j'aime pas trop)

Pour moi, la solution serait peut-être d’aller sur un autre site, qui ne poserait pas de problèmes
Des exemples :
Ce lien n'existe plus
Cotations et cours de bourse par action - La Vie Financière

etc…

Il y a une application Freeware de François LAUNAY dans excel-downloads.
https://www.excel-downloads.com/resources/cours-actions-via-msn.609/

albert

Re : format unicode dans une requête web (Résolu)

Bonjour et Merci Albert
Ton dernier lien est celui que j'utilisais jusqu'en février dernier, jusqu'à ce que MSN modifie son site. Sa lenteur m'a incité à faire un programme moi-même, mon premier en VBA Excel. Il a fonctionné 1 mois, jusqu'à ce que AbcBourse modifie, à son tour sa page Web. Surprise agréable ce programme est beaucoup plus rapide que celui de Delaunay.
Ma solution actuelle est OK.
J'ai utilisé la fonction : =CNUM(SUBSTITUE(B3;"Â";" "))
Je vais essayer de l'adapter à un autre site
Merci de tes conseils Amicalement
Pap77