Macro téléchargement de données
Résolu/Fermé
A voir également:
- Macro téléchargement de données
- Site de telechargement - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
10 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
31 janv. 2009 à 16:10
31 janv. 2009 à 16:10
Bonjour,
tu a essayé avec l'éditeur de macros ?
A+
tu a essayé avec l'éditeur de macros ?
A+
bonjour, ou g'day
oui mais ça me donne n'importe quoi???
je ne suis pas expert avec les macro....
merci
oui mais ça me donne n'importe quoi???
je ne suis pas expert avec les macro....
merci
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 févr. 2009 à 06:29
5 févr. 2009 à 06:29
Re,
Tu peu mettre la macros que tu a fait avec l'éditeur ?
A+
Tu peu mettre la macros que tu a fait avec l'éditeur ?
A+
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
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
8 févr. 2009 à 09:35
8 févr. 2009 à 09:35
Bonjour,
Tu pourrais pas mettre le classeur en xls (2003)
Tu pourrais pas mettre le classeur en xls (2003)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
10 févr. 2009 à 10:02
10 févr. 2009 à 10:02
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.
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.
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.
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
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
10 févr. 2009 à 11:16
10 févr. 2009 à 11:16
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.
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.
