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