Copie automatique fichier text vers fichier Exel
mirage23
Messages postés
111
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic -
eriiic -
Bonjour,
j'ai un logiciel meterologiques qui me genere des données chaque seconde sur un fichier text. une fichier text contient les données d'une journée, donc chaque jour ce logiciel me crée un nouveau fichier text. ce dont j'ai besoin c'est qu'a chaque fois qu'un fichier text est crée , ses données se copie automatiquement dans fichier Exel actif.
donc ce que je devrai avoir sur le fichier Exel actif : des données géneré chaque seconde qui viennent se rajouté dans mon fichié Exel, des que la journée est achevée, et que ce fichier doit copié les donnée d'un fichié text , celui ci se remet a jour en effassant les données du jour précédent et en ajoutant les données du jour qui suit. " ce fichier Exel doit copié en simultané les données génerées par le logiciel dans le fichié text".
merci de m'aider.
j'ai un logiciel meterologiques qui me genere des données chaque seconde sur un fichier text. une fichier text contient les données d'une journée, donc chaque jour ce logiciel me crée un nouveau fichier text. ce dont j'ai besoin c'est qu'a chaque fois qu'un fichier text est crée , ses données se copie automatiquement dans fichier Exel actif.
donc ce que je devrai avoir sur le fichier Exel actif : des données géneré chaque seconde qui viennent se rajouté dans mon fichié Exel, des que la journée est achevée, et que ce fichier doit copié les donnée d'un fichié text , celui ci se remet a jour en effassant les données du jour précédent et en ajoutant les données du jour qui suit. " ce fichier Exel doit copié en simultané les données génerées par le logiciel dans le fichié text".
merci de m'aider.
A voir également:
- Copie automatique fichier text vers fichier Exel
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
28 réponses
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+
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+
mirage23
http://cjoint.com/?3LljlCGZvcW voici un exemple de fichier text et je precise que les fichiers text n'ont pas le meme nom
Re,
je precise que les fichiers text n'ont pas le meme nom mais encore??
a20120105.txt ----> pouvez vous detailler le nom du fichier??
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+
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Quel EXCEL avez-vous???
autre PC relié à distance contenant ce logiciel Ces fichiers sont dans quel PC???
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
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+
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
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??????
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
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+
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
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
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
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
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?
'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+
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+
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,??
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,??