Sub résultat()
'
' résultat Macro
'
'
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "page temporaire1"
[COLOR="#FF0000"]Workbooks.Open Filename:="..\Achil\A00000A0000001.csv"[/COLOR]
Range("A:A").Select
Selection.Copy
Windows("Resultat.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "page temporaire2"
[COLOR="#FF0000"]Workbooks.Open Filename:="..\Achil\B00000A0000001.csv"[/COLOR]
Range("A:A").Select
Selection.Copy
Windows("Resultat.xls").Activate
ActiveSheet.Paste
Windows("A00000A0000001.csv").Activate
ActiveWindow.Close
Windows("B00000A0000001.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Sheets("page temporaire1").Select
Selection.Cut
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If
Sheets("page temporaire2").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1:A100").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveCell.Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets("page temporaire1").Delete
Sheets("page temporaire2").Delete
Application.DisplayAlerts = True
Sheets("Feuil2").Select
Range("A:A").Select
Selection.TextToColumns Destination:=Range("A:A"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Range("A1:D1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub