Sub Export()
'
' Export Macro
'
Sheets("Export Agorra quotidien ").Select
Windows("Export_Dossiers_Agorra_" & Format(Sheets("Dossiers à Valoriser").Range("C1"), "yyyymmdd") & ".csv").Activate
Range("A2").Select
Windows("Dossiers Agorra SE Test.xlsm").Activate
Windows("Export_Dossiers_Agorra_" & Format(Sheets("Dossiers à Valoriser").Range("C1"), "yyyymmdd") & ".csv").Activate
Selection.End(xlDown).Select
Windows("Dossiers Agorra SE Test.xlsm").Activate
Windows("Export_Dossiers_Agorra_" & Format(Sheets("Dossiers à Valoriser").Range("C1"), "yyyymmdd") & ".csv").Activate
Range("A2:N163").Select
Range("A163").Activate
Selection.Copy
Windows("Dossiers Agorra SE Test.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Point à date").Select
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
Range("B6").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:I").Select
Selection.Delete Shift:=xlToLeft
Range("C2").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau9[[#Headers],[Code Centre]]").Select 'Ici le tableau se nomme "Tableau9"
Range("Tableau9").Select
Range("A70").Activate
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Dossiers à Valoriser").Select
Range("B8").Select
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("A1").Select
Range("B8:I76").Select
Range("B76").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=132
Rows("8:223").Select
Range("A223").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.ScrollRow = 1
Sheets("Feuil8").Select
Selection.Copy
Sheets("Dossiers à Valoriser").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil8").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Point à date").Select
Range("B7").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("F:K").Select
Selection.Delete Shift:=xlToLeft
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Dossiers à Valoriser").Select
Range("D8").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Feuil9").Select
Range("C2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau9[[#Headers],[Code Centre]]").Select
Range("Tableau9").Select
Range("A9").Activate
Selection.Copy
Sheets("Dossiers à Valoriser").Select
Range("B77").Select
Sheets("Feuil9").Select
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("C2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau9[[#Headers],[Code Centre]]").Select
Range("Tableau9").Select
Range("A9").Activate
Selection.Copy
Sheets("Dossiers à Valoriser").Select
ActiveWindow.SmallScroll Down:=-69
Range("D8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-45
Columns("F:F").Select
Application.CutCopyMode = False
Range("F7").Select
ActiveWorkbook.Worksheets("Dossiers à Valoriser").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dossiers à Valoriser").Sort.SortFields.Add Key:= _
Range("F7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dossiers à Valoriser").Sort
.SetRange Range("B8:I553")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Feuil9").Select
ActiveWindow.SelectedSheets.Delete
Range("C17").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:I").Select
Selection.Delete Shift:=xlToLeft
Sheets("Dossiers à Facturer ").Select
ActiveWindow.SmallScroll Down:=-84
Range("D8").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("A1").Select
Range("B8:I29").Select
Range("B29").Activate
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Feuil10").Select
Range("C2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau10[[#Headers],[Code Centre]]").Select
Range("Tableau10").Select
Range("A15").Activate
Sheets("Feuil10").Select
Selection.Copy
Sheets("Dossiers à Facturer ").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil10").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("C18").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:I").Select
Selection.Delete Shift:=xlToLeft
Sheets("Dossiers à Facturer ").Select
Range("D8").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Feuil11").Select
Range("C2").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau11[[#Headers],[Code Centre]]").Select
Range("Tableau11").Select
Range("A21").Activate
Selection.Copy
Sheets("Dossiers à Facturer ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil11").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("C22").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:I").Select
Selection.Delete Shift:=xlToLeft
Sheets("Dossiers à Facturer ").Select
Range("D8").Select
Selection.End(xlDown).Select
Range("D8").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Feuil12").Select
Range("Tableau12[N° Dossier]").Select
Selection.End(xlDown).Select
ActiveWindow.ScrollRow = 1048535
ActiveWindow.ScrollRow = 1045887
ActiveWindow.ScrollRow = 1040591
ActiveWindow.ScrollRow = 1036619
ActiveWindow.ScrollRow = 745360
ActiveWindow.ScrollRow = 631504
ActiveWindow.ScrollRow = 452777
ActiveWindow.ScrollRow = 419679
ActiveWindow.ScrollRow = 229036
ActiveWindow.ScrollRow = 211826
ActiveWindow.ScrollRow = 182700
ActiveWindow.ScrollRow = 180052
ActiveWindow.ScrollRow = 140335
ActiveWindow.ScrollRow = 54281
ActiveWindow.ScrollRow = 46337
ActiveWindow.ScrollRow = 39718
ActiveWindow.ScrollRow = 37070
ActiveWindow.ScrollRow = 34422
ActiveWindow.ScrollRow = 18535
ActiveWindow.ScrollRow = 14563
ActiveWindow.ScrollRow = 10592
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1048575, 0).Range("Tableau12[[#Headers],[Code Centre]]"). _
Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau12[[#Headers],[Code Centre]]").Select
Range("Tableau12").Select
Selection.Copy
Sheets("Dossiers à Facturer ").Select
ActiveSheet.Paste
Sheets("Feuil12").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("C23").Select
Selection.ShowDetail = True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:I").Select
Selection.Delete Shift:=xlToLeft
Sheets("Dossiers à Facturer ").Select
Range("D8").Select
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Feuil13").Select
Range("Tableau13[[#Headers],[N° Dossier]]").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("Tableau13[[#Headers],[Code Centre]]").Select
Range("Tableau13").Select
Selection.Copy
Sheets("Dossiers à Facturer ").Select
ActiveSheet.Paste
Range("D8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -2).Range("A1").Select
Range("B8:I43").Select
Range("B43").Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("H8").Select
Selection.End(xlDown).Select
ActiveWindow.ScrollRow = 1048535
ActiveWindow.ScrollRow = 1045887
ActiveWindow.ScrollRow = 1032648
ActiveWindow.ScrollRow = 1015437
ActiveWindow.ScrollRow = 996902
ActiveWindow.ScrollRow = 377314
ActiveWindow.ScrollRow = 278021
ActiveWindow.ScrollRow = 178728
ActiveWindow.ScrollRow = 170784
ActiveWindow.ScrollRow = 75463
ActiveWindow.ScrollRow = 52957
ActiveWindow.ScrollRow = 31774
ActiveWindow.ScrollRow = 21183
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1048568, -4).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 4).Range("A1").Select
Range("H8:I43").Select
Range("H43").Activate
Selection.ClearContents
Range("F7").Select
ActiveWorkbook.Worksheets("Dossiers à Facturer ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dossiers à Facturer ").Sort.SortFields.Add Key:= _
Range("F7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dossiers à Facturer ").Sort
.SetRange Range("B8:I43")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Point à date").Select
End Sub