Private Sub Workbook_Open()
Application.DisplayAlerts = False
'Ouvrir un fichier excel qu'on choisit
MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If MonFichier <> False Then Workbooks.Open Filename:=MonFichier Else Exit Sub
'Le sauvegarder ds le répertoire Remise
ActiveWorkbook.SaveAs "C:\Remise\" & ActiveWorkbook.Name
'puis dans le rép courant sous le nom Nomenclature.xls
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Nomenclature.xls"
Application.DisplayAlerts = True
End Sub