View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Shadok Shadok is offline
external usenet poster
 
Posts: 8
Default macro don't execute a step in the code

Hi,

I made a macro which opens text files from another source. Text data are
converted in standard format by opening the file and values are multiplied by
1 in order to have a correct numeric format.
When I do this without the macro it works correctly, by when I run the code
the step step of multiplication isn't executed.
I don't understand where is the trouble.
Can you help me please ?

Here is my code:
....
Workbooks.OpenText FileName:=NomFichier, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1,
1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1))
Rows("7:10").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("11:411").Select
Selection.Replace What:=",", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Range("C3").Select -- value is 1
Selection.Copy
Rows("7:411").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
....

Thanks,
Shadok