Bonjour a tous, et merci de m'accueil sur le forum.
J'ai commencé y'a quelques mois les macro et j'en ch**** un peu.
En me formant notamment sur ce forum j'ai réussi a bricoler une macro qui fonctionne.
Et la vous vous dites ; super y'a plus qu'a cliquer sur résolu! mais non, j'ai un temps d'execution treeees long
J'aimerai vos lumières sur la meilleur façon de s'y prendre:
J'ai des fichiers d'enregistrement du système. 325 paramètres enregistrés toutes les 10 sec
J'ai besoin de copier une ligne complete sur 36 pour pouvoir avoir un graph de moins de 256 points sur une journée
Pour l'instant, la macro copie l’intégralité de tous les fichiers txt de 25Mo chacun dans un onglet puis copie une ligne sur x dans un autre , mais cela prends des centaines de secondes (259000 lignes 211sec pour un mois) :
'BOUCLE IMPORT D'UN FICHIER TXT-------------------------------------------
Nb = FreeFile
Set Rg = ThisWorkbook.Worksheets("TMP").Range("A" & depart)
Fichier = ThisWorkbook.Path & "\" & Range("A" & listefichier).Value
Open Fichier For Input As Nb
Do While Not EOF(Nb)
Line Input #Nb, Ligne
C = Split(Ligne, vbTab)
Rg.Offset(k).Resize(, UBound(C) + 1) = C
k = k + 1
Voyez vous mieux a faire avec ce bout de code que je n'ai de tout façon pas compris?
Merci a vous
Fred