Bonjour
J'ai pas beaucoup de temps ...vite fait :
Dim Fichier As Variant
Dim Wb As Workbook
Fichier = Application.GetOpenFilename('Fichiers Excel , *.xls')
If Fichier = False Then Exit Sub
Set Wb = Workbooks.Open(Fichier)
Dim Nom
Nom = Wb.Name
Sheets('Autre').Copy Before:=Workbooks('Test.xls').Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
Windows(Nom).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Temjeh
Message édité par: temjeh, à: 21/06/2006 11:56
Message édité par: temjeh, à: 24/06/2006 00:37