aide pour une macro

Re : aide pour une macro

bonjour,
à mon humble avis, il serait plus simple de 'triturer' les + de 100 000 lignes en les intégrant dans excel.
Si la macro prend trop de temps, c'est qu'il y a des améliorations à apporter, mais je traite des fichiers beaucouop plus gros sans prob de lenteur, donc :
- un extrait de ton fichier txt (une 100ne de lignes)
- ton fichier xls
- et on va voir ...

Re : aide pour une macro

merci Mutzik, mais peux-tu me donner plus de détails
la macro que j'ai me permet de charger mon fichier txt dans xls et de faire un traitement sur les données ( remplacement de"." par "," et condition sir les valeurs) , çà utilise pas mal de ressources vue le nombre de lignes donc j'ai abandonné l'idée de rendre auto ces actions mais je voudrais maintenat automatiser mes graphes sur d'autres feuilles de mon classeur.
Merci pour votre coup de main

Re : aide pour une macro

personne ne peut m'aider???
snifff snifff

Re : aide pour une macro

re, c'est pourtant pas dur de joindre un ou deux petits fichiers

Aide nous et nous t'aiderons ...

Re : aide pour une macro

excuses-moi mutzik, j'ai pas lu la fin de ton post ...
mon fichier txt se présente comme suit:
0.000640
0.000651
0.000647
0.000590
0.000649
0.000646
0.000642
0.000629
0.000614
0.000674
0.000634
0.000627
0.000621
0.000644
0.000658
0.000604
0.000649
0.000652

ma macro ouvre mon fichier txt et compte le nombre de ligne
je voulais changer les "." par les "," mais c'est très long dans le process

Sub Macro1()

'essai d'ouverture de fichier .txt
'enregistrée le 09/07/2009 par marie-louise

Dim i As Long
Dim l As Long

'Ouverture du fichier

'Ouverture d'un fichier Excel
Workbooks.OpenText Filename:="C:\Documents and Settings\lme00088\Desktop\test4.txt", Origin:=xlWindows, _
StartRow:=5, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar:=".", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True


l = Cells.SpecialCells(xlCellTypeLastCell).Row

Range("C" & 1 & "").Select
Range("C" & 1 & "") = l

If Range("A" & i).Value > 0.001 Then Range("B" & i).Value = Range("A" & i).Value Else Range("B" & i).Value = 0
cette ligne entraine un long process donc je l'ai supprimé mais je le fais manuellement
End Sub

Le plus important c'est de pouvoir faire des plots sur des feuilles différentes

Re : aide pour une macro

j'oubliais de dire
je voudrais faire une macro générique qui prendrait en entrée le chemin du fichier (.txt) et me sortira un fichier xls avec toutes les courbes .
pour une courbe , j'ai fait cette macro

Sub Macro2()
Worksheets.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "courbe2"
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("test4").Range("A1:A12000"), PlotBy:=xlColumns

End Sub

j'ai un message d'erreur 'error 9... out of range'
🙁comprends pas pourquoi
merci de votre réponse