Copie automatique fichier text vers fichier Exel

Bonjour,

Il faudrait un exemple du fichier TXT cree. sur ce lien: https://www.cjoint.com/
Copiez le lien cree sur votre prochain post.
Le nom du fichier TXT est fixe ou nom??

Merci

A+

Re,

je precise que les fichiers text n'ont pas le meme nom mais encore??

a20120105.txt ----> pouvez vous detailler le nom du fichier??

Re bonjour,

donc ce que je devrai avoir sur le fichier Exel actif : vous aurez le fichier de la veille, d'apres ce que vous avez ecrit!!!! Vous ne pouvez pas avoir les donnees en temps reel, car le fichier utilise par votre logiciel de meteo ne pourra peut-etre pas etre accessible par un autre programme.

A+

dans mon projet le principe c'est d'avoir du temp reel car ces fichiers proviennent d'un autre PC relié à distance contenant ce logiciel . par contre si ya pas moyen d'avoir du temp reel j'aimerai au moin avoir quelque chose a exploiter, du moin pour le debut . J'aimerai savoir comment faire pour copier automatiquement les données de la veille svp sur mon fichier Exel actif. merci bien

Re,

Quel EXCEL avez-vous???

autre PC relié à distance contenant ce logiciel Ces fichiers sont dans quel PC???

le dossier ou ecrit ce logiciel est partagé avec mon pc, la version d'Exel est 2007 mais neaumoins je souhaiterai avoir une reponse concernant la version 2007 et 2010 si c'est possible car ce pc est dans mon entreprise et mon entreprise pourait installé la version 2010 prochainnement.

Bonjour,

Le fichier de la journee en cours a quel nom, le voyez vous augmenter en taille ??

EXCEL2007 ira avec EXCEL2010

Votre logiciel de meteo peut-il etre parametre pour creer des fichiers a l'heure ou 10 minutes??????

Pourriez mettre deux ou trois fichiers txt complets (compresses) a dispo??

Merci

Re,

un exemple, adaptez le chemin du fichier, ici il est en local. Adaptez aussi le temps pour le prochain import fichier

Jour J: ici 3 secondes
https://www.cjoint.com/?BLmiHAFngb0

Jour J-1: parametrez prochain import a 24:00:00
https://www.cjoint.com/?BLmiN1yAQE3

A+

Bonjour,

Merci pour l'exemple.J'ai adapté le chemin du fichier texte (nouveau chemin C:\_Docs_Prog_Excel\Excel_a_traiter\Meteo )et ça ne s'exécute pas,le tableau était rempli puis plus rien.voici le message d'erreur qui s'affiche:

erreur d'exécution '1004':

impossible de trouver le fichier texte pour l'actualisation de cette plage de données externes

assurez-vous que le texte n'a été ni déplacé ni renommé et réessayez

Re,

Avez vous mis un fichier TXT dans le repertoire de decembre et le fichier du 11 dans ce repertoire??????

Re,

J'ai enfin réussi à faire marcher le code en simulant des insertions dans le fichier texte du jour.
mais si je le laisse vide ;s'il n y a pas d'insertion ;il m'affiche un message d'erreur "mémoire insuffisante".Or j'aimerais qu'il affiche par défaut les données d'hier.En fait les 2 tableaux sont identiques(tableau d'hier n'affiche pas les données archivées comme il le devrait,mais il affiche les données insérées aujourd'hui)

Pourriez-vous m'indiquer ou doit etre le probleme?

Merci

Re,

mais si je le laisse vide ; Pourquoi?? Normalement ce fichier existe ou pas, mais ne peut-etre vide!!!!

Pour afficher les donnees du jour precedent, si le fichier du jour en cours est inexistant, oblige a recalculer le mois en partant de la date du jour-1. Si le jour-1 est sur le mois precedent, il faut chercher dans le repertoire du mois precedent.

Pouvez-vous faire la programmation de cette evolution??

A+

Re,

j'ai un programme qui fait la rotation des cellules, la derniere ligne se retrouve premiere à chaque fait chaque instant donné. je me suis rendu compte que le logiciel meteo ecrit la nouvelle donnée en bas alors que moi je veux la voir en haut a chaque foie qu'il y'a une nouvelle donnée. donc je me suis dis si je pouvais comibiner la procedure qui fait la rotation avec celle que tu ma donner pour avoir le resultat que je veux? si c'est oui, comment faire ? ou ya t'il un moyen plus court?

voici la procedure qui fait la rotation:

Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long

Sub LancementAutomatique()
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
Application.OnTime Go, "LancementAutomatique"
Call Beep(500, 100)
Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
Range("A3").Select
ActiveSheet.Paste
Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
Range("A2").Select
ActiveSheet.Paste
End Sub

en fin pouvez vous me commenter votre prgramme pour que je puisse comprendre les differentes commandes que vous avez utilisé et pour savoir à quoi elles servent.

merci bien

Bonjour,

le logiciel meteo ecrit la nouvelle donnée en bas alors que moi je veux la voir en haut Cet ordre d'ecriture est immuable.

Si vous voulez voir les donnees triees en ordre descendant (les donnees les plus recentes en partant du haut allant vers le bas) il suffit de rajouter le code pour inverser l'affichage.

en fin pouvez vous me commenter votre prgramme Je vous fais cela demain matin avec le code de tri inverse

A demain

merci

Bonjour,

fichier avec commentaires et tri descendant des donnees

https://www.cjoint.com/?BLrh6hnQWGn

Toujours avoir a l'idee qu'il y a un enregistreur de Macro pour vous aider a creer votre code, il ne fait pas tout, mais cela vous permettra de mieux avancer en programmation.

Bon courage

je vous remerci pour l'aide que vous m'apportez, pour cette partie:

'Parametrage interval temps import: ici 3 secondes
Next_Scan = Now() + TimeValue("00:00:03")
Application.OnTime Next_Scan, "Import_Fichier"

est-ce que je peux le parametrer à l'ordre du milliseconde?

Bonjour,

est-ce que je peux le parametrer à l'ordre du milliseconde?Non avec EXCEL 1 seconde minimum.
Logiquement il n'y a aucune raison de faire des imports a la milliseconde pour deux raisons:

1ere-->pas faisable materiellement avec un PC lambda

2eme-->votre fichier est ecrit toutes les secondes, donc pas utile de voir a la millseconde puisqu'il n'y a pas de changement de valeurs dans le fichier

A+

merci

svp pour ce programme la :

Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long

Sub LancementAutomatique()
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + "3")
Application.OnTime Go, "LancementAutomatique"
Call Beep(500, 100)
Range(Range("A65536").End(xlUp), Range("A2").Offset(0, 48)).Cut
Range("A3").Select
ActiveSheet.Paste
Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 48)).Cut
Range("A2").Select
ActiveSheet.Paste
End Sub

j'essay de l'executer sur office2010, il me fait "erreur de compilation, le code contenu dans ce projet doit etre mis a jour pour pouvoir etre utilisé sur les systeme 64bits verifier et mettez a jour les instructions declaré, puis marquez les avec l'attribut Ptrsafe".

je doit modifier quoi sur ce programme svp,??