Requête Web et valeurs séparées par des virgules

Bonjour,

J’ai paramètre une « requête sur le Web » (site Yahoo finance, mon portefeuille), pour avoir des côtes boursières toujours à jour, dans un tableau Excel (une base de donnée boursière). Le but est de rapatrier certaines valeurs de cette base de donnée (recherchev), vers un autre tableau Excel plus pertinent.

Le problème est que ma requête me rapatrie les valeurs séparées par des virgules et dans une même cellule. Il y a-t-il un moyen pour que chaque valeurs se place dans une cellule.

Merci d’avance, car je suis débutant avec Excel

Bonjour,

Dans Excel tu peux facilement convertir les données importées si elles sont toutes séparées par une virgule. Tu sélectionnes ta colonne, puis :

Données

Convertir

choisir Délimité, puis cocher la case virgule

plusieurs fois "suivant" puis valider.

Ca devrait le faire.

Mais pour importer directement chaque valeur dans une seule cellule, ça je ne sais pas.

Elbie

hé oui !!! voilà le problème.

Je voudrais importer directement chaque valeur dans une seule cellule.

Bonjour,

Où pourrait-on importer ce style de fichiers pour tester ?

Un bout de fichier test serait le bienvenue...

Joindre un fichier est en haut de page, n'oublie pas de copier/coller le lien donné dans ta réponse.

A +

voici Bélug, comment je reçois les données du site Web.

fichier ci-joint

https://www.excel-pratique.com/~files/doc/donnees_externes.xls

Pour info, Je suis sur Excel 2000

Salut le Forum

Une petite macro à mettre dans le module de ta feuille

La Plage est à adapter Range("A1:A4")

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing Then
Application.DisplayAlerts = False
For Each cellule In Range("A1:A4")
cellule.TextToColumns Destination:=cellule.Offset(0, 1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Next cellule
End If
Application.DisplayAlerts = True
End Sub

Mytå

Merci pour la réponse Myta.

Mais Comme dit plus haut, je suis débutant en Excel et ignorant en macro.

comment je fais pour mettre cette macro dans le module de feuille (celà ne me parle pas beaucoup???)

Salut le Forum

Le fichier avec la macro incorporée (ALT+F11 pour accéder au VBA)

https://www.excel-pratique.com/~files/doc/wCb4Ndonnees_externes.xls

Mytå