'Taux de Change GBP'
Workbooks.Open Filename:= _
"\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.csv", Local:=True
ChDir "\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises"
ActiveWorkbook.SaveAs Filename:= _
"\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open Filename:= _
"\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.xls"
Cells.Select
Selection.Copy
Windows("taux de change.xls").Activate
Sheets("Cours GBP").Select
Cells.Select
ActiveSheet.Paste
Windows("Cours GBP.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Sheets("Taux de change").Select
End Sub