copie automatique fichier text vers fichier Exel Fermé

Question

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.

f894009 · Answer

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+

f894009 · Answer

Re,

je precise que les fichiers text n'ont pas le meme nom mais encore??

a20120105.txt ----> pouvez vous detailler le nom du fichier??

f894009 · Answer

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+

mirage23 · Answer

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

f894009 · Answer

Re, 

Quel EXCEL avez-vous???

autre PC relié à distance contenant ce logiciel Ces fichiers sont dans quel PC???

mirage23 · Answer

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.

f894009 · Answer

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

f894009 · Answer

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+

mirage23 · Answer

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

f894009 · Answer

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

mirage23 · Answer

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

f894009 · Answer

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+

mirage23 · Answer

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

f894009 · Answer

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

mirage23 · Answer

merci

f894009 · Answer

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

mirage23 · Answer

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?

f894009 · Answer

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+

mirage23 · Answer

merci

mirage23 · Answer

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,??

f894009 · Answer

Bonjour,

pour pouvoir etre utilisé sur les systeme 64bits verifier et mettez a jour les instructions declaré, 
Le PC est en XP, Windows2003, W7, W8 ou ....????

A+

mirage23 · Answer

w7

f894009 · Answer

Re,

Je verifierai demain, mais il me semble que cette fonction Beep() ne marche plus sur W7 64Bits, chez moi je n'ai pas de PC en W7 64Bits

A+

f894009 · Answer

Re,

Il y a une mise a jour a faire pour les systemes 64bits:

http://www.microsoft.com/en-us/download/details.aspx?id=9970

et si la fonction existe, il y a une petite modif pour aller chercher la version 64bits

Exemples ici: https://arkham46.developpez.com/articles/office/vba64bits/#LIV

A demain

mirage23 · Answer

ok, merci et a demain.

mirage23 · Answer

Bonjour,
s'il vous plait j'essay de creer un lien entre une variable sur un logiciel de supervision et une cellule sur Excel, le code a mettre pour visualiser cette variable sur la cellule Excel est :

=View|Tagname!'MyTag'        

'MyTag' etant le nom de la variable.

selement voila , moi je veux faire l'inverse , ecrire sur excel et voir la variable changer sur le logiciel de supervision qui s'appel intouch, alors existe il une autre fonction à la place de "view" qui me permet d'ecrir?

f894009 · Answer

Bonjiour,

Systemes 64bits et Office 64bits: telecharger PtrSafe voir post du 20 decembre a 19:25

Installer PtrSafe et modifer le code de la declaration de la fonction Beep

Declare PtrSafe Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long 

pour inTouch, je regarde.

eriiic · Answer

Bonjour,

merci d'éviter les doublons : https://forums.commentcamarche.net/forum/affich-26677580-a-quel-moment-installer-ms-office-version-d-evaluation#9
eric

Copie automatique fichier text vers fichier Exel

28 réponses

Discussions similaires