Sujet Précédent Sujet Suivant

Macro téléchargement de données

Résolu
aussie -  
 aussie -
Bonjour à tous,

Tous les jours de la semaine je télécharge des données sur :

https://www.abcbourse.com/download/historiques?f=ex

Est il possible de faire une macro sur excel pour automatiser la chose ?

1)
je coche SRD et indices sur cette page internet.
j'utilise excel et le format ISIN puis je coche télécharger.

2)
Ensuite j'ouvre mon fichier txt "fraichement téléchargé" avec excel et l assistant d'importation de texte
etape 1/3 : je coche délimité. origine du fichier : MS DOS (PC-8)
etape 2/3 : je coche tabulation et virgule pour le "separateur"
etape 3/3 : je coche standard dans "format des données en colonne

et voila j ai mon tableau excel exploitable...

MERCI BEAUCOUP D'AVANCE
A voir également:

10 réponses

Réponse 1 / 10
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
tu a essayé avec l'éditeur de macros ?
A+
0
Réponse 2 / 10
aussie
 
bonjour, ou g'day

oui mais ça me donne n'importe quoi???
je ne suis pas expert avec les macro....
merci
0
Réponse 3 / 10
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Re,
Tu peu mettre la macros que tu a fait avec l'éditeur ?
A+
0
Réponse 4 / 10
aussie
 
hello,

Voila voila
https://www.cjoint.com/?ckgIXuz6in

tout fonctionne sauf deux petits soucis

Le premier est qu'il me repete toujour la meme macro sans prendre en compte les deux dates du classeur.
Il télécharge toujours la meme date.
deuxieme problemes une fois téléchargé, les dates apparessent 02/03/2009 pour le 3 fevrier 2009 et non pas 03/02/2009.

Voila j'espere que l'on peu resoudre ce probleme..

MERCI Lermitte222
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Tu pourrais pas mettre le classeur en xls (2003)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
aussie
 
Et voila,

Je pense que ça fonctionne car j ai déja le fichier cotations sur mon disque dur...enfin je pense

https://www.cjoint.com/?cmffW1RorK
0
Réponse 6 / 10
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Re,
1°) Renommer ta macro Macro1 par Macro2 ' si jamais la nouvelle ne fonctionnerait pas tu pourrais la récupérer
2°) Mettre le colonne B en mode texte.
3°) Coller la macro ci-dessous dans le module
Pour les dates ! tu fait toujours l'opération le lundi ? sinon faudra adapter
Je ne sais pas tester je n'ai pas ton fichier texte, mais en principe ce devrait aller. 
Sub Macro1()
Dim Lig As Long, TB
    Range("A10:G" & Range("G65536").End(xlUp).Row).ClearContents
    Columns("B:B").NumberFormat = "@" 'mettre en texte
    Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("G1") = Date 'date du jour
    Range("H1") = TimeSerial(Year(Date), Month(Date), Day(Date) + 4) 'date +4 jours
    'Range("H6").Select
    Workbooks.OpenText Filename:="H:\Mes documents\Bourse\cotation\Cotations.txt" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, 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)), _
        TrailingMinusNumbers:=True
    
    'Range("A1:G1195").Select
    'Selection.Copy
    Cells.Copy Windows("Classeurtéléchargement.xlsm").Range("A10") '.Activate
    'Range("A10").Select
    'ActiveSheet.Paste
    Windows("Cotations.txt").Close
    Windows("Classeurtéléchargement.xlsm").Sheets("Feuil1").Select
    'Retourne les dates
    For Lig = 10 To Range("B65536").End(xlUp).Row
        TB = Split(Cells(Lig, 2), "/")
        Cells(Lig, 2) = Format(TB(1) & "/" & TB(0) & "/" & TB(2), "dd/mm/yyyy")
    Next Lig
    
End Sub

Y a peut-être des trucs qui iront pas !! tu dis.
A+
PS: Quand tout fonctionnerra tu pourras enlever les données en couleur verte.
0
Réponse 7 / 10
aussie
 
bonjour lermitte222,

En fait c est justement ça que j'aimerai faire (télécharger le fichier "cotations" en macro).

Et la je bloque.. il m'ouvre simplement la page internet et ne me télécharge rien???
Je m'en suis aperçu quand j'ai suprimé le fichier"cotations" et que ensuite j'ai relancé la macro... il ne trouvait rien...
dur dur

j'espere que c'est possible.

Merci d'avance lermitte222
0
Réponse 8 / 10
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Je n'avais pas bien compris pour ton chargement, je ne sais pas si ce serra possible, tu doit probablement entrer ton code et ton pseudo ?
Sinon, avec la bonne addresse tu peu télécharger directement dans excel..
Essaye, pour avoir l'adresse...
Tu va sur le site et tu télécharge le fichier, d'après ce que j'ai vu il y a moyen de le charger au format Excel ?
Tu prend note de l'adresse http\...............................xls
Sur un nouveau classeur tu ouvre une nouvelle macro automatique.
Ensuite tu clic sur le bouton Ouvrir et dans le bas de la fenêtre dans nom du fichier tu colle l'adresse complète et tu envoi. Si tu a la bonne adresse le fichier serra ouvert sur un nouveau classeur que tu peu renommer

Je ne peu pas faire les essais à ta place vu que je ne suis pas membre.
0
Réponse 9 / 10
aussie
 
Ok

Merci je ne vois pas l'adresse quand je télécharge mais je vais voir avec eux pour qu'il me la communique.

Merci pour ton aide.

See ya
@+
0
Réponse 10 / 10
aussie
 
desolé je n arrive pas à changer le statut...
0