1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub Export_Beauce()
Sheets("TCD").Select
Range("BJ19").Select
Selection.ShowDetail = True
ActiveSheet.Select
ActiveSheet.Name = "Data_Beauce"
Sheets(Array("BEAUCE", "Data_Beauce")).Select
Sheets("Data_Beauce").Activate
Sheets(Array("BEAUCE", "Data_Beauce")).Copy
ChDir "C:\Documents and Settings\egari\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\egari\Bureau\Beauce.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.WindowState = xlMinimized
Windows("Copie de Copie de STATS_RC.xls").Activate
Sheets("Data_Beauce").Select
ActiveWindow.SelectedSheets.Delete
Sheets("BEAUCE").Select
Range("B54").Select
End Sub |
Partager