probleme macro

[cerf volant]

Bonjour,

voila j ai réalisé une macro excel qui me permet de modifier le contenu d'un fichier texte.

Le problème est que je possède un fichier rempli de documents texte et je voudrais que ma macro excel se réalise pour chacun d 'eux mais je ne sais pas comment faire.

Pourriez vous m'aider??

voici ma macro:


Sub macrotest1()
'
' macrotest1 Macro
'

'
ChDir "C:\Users\thierry\Desktop\doc Google Earth"
Workbooks.OpenText Filename:= _
"C:\Users\thierry\Desktop\doc Google Earth\98889.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Cells.Replace What:=">", Replacement:="<", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.OpenText Filename:= _
"C:\Users\thierry\Desktop\doc Google Earth\98889.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:=True, _
Space:=True, Other:=True, OtherChar:="<", FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.LargeScroll Down:=-1
Range("A1:A2").Select
Selection.ClearContents
Range("D4:E42").Select
Selection.ClearContents
Range("B3:B50").Select
Selection.ClearContents
Range("C4:C31").Select
Range("C31").Activate
Selection.ClearContents
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
Range("C38:F46").Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[33]C[2]"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=R[35]C[1]"
Range("C1").Select
ActiveCell.FormulaR1C1 = "=R[36]C"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=10"
Range("D3").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Je vous remercie d'avance pour vos réponses et vous sohaite une bonne journée.