[COLOR="red"][B]Dim wb As Workbook[/B][/COLOR]
Sheets("Top Line Datas").Visible = True
Range("B20").Select
Fichier = Application.GetOpenFilename
If Fichier <> False Then
On Error GoTo Erreur
Workbooks.Open Fichier
[COLOR="red"][B]Set wb = ActiveWorkbook[/B][/COLOR]
Range("b4:am84").Copy
Windows("DB2.0.xls").Activate
Sheets("top line datas").Select
Range("A1").Select
ActiveSheet.Paste
[B][COLOR="Red"]wb.Close[/COLOR][/B]
Windows("DB2.0.xls").Activate
MsgBox "exportation donnees ok"
Sheets("Top Line Datas").Visible = False
Sheets("Admin").Select
End If
Exit Sub
Erreur:
Windows("DB2.0.xls").Activate
MsgBox "Erreur"
Sheets("Admin").Select
End Sub