format unicode dans une requête web

[PAP77]

Bonjour à tous
Mon problème : une requête web sur Abcbourse renvoie les valeurs avec le séparateur des milliers sous la forme x xxx,xx qui n'est pas reconnue par Excel comme un nombre.
Ce format correspond à l'encodage caractères "occidental (iso....)"
Par contre l'encodage "Unicode" renvoie x xxx,xx qu'Excel reconnaît parfaitement.
(vérification faite en affichant le code de la page web)
La requête a été enregistrée par Excel avec Données-->données externes-->nouvelle requête sur le web....
Comment obtenir , autrement que par une macro, une copie à l'encodage Unicode?
merci de votre aide
A+

 

[albert]

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

 

[PAP77]

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+

 

[albert]

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

 

[PAP77]

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