ouvrir un fichier excel et le fermer via macro

[eliooo22]

Bonjour à tous,

Dans la macro ci dessous j'ouvre un premier fichier excel via une boite de dialogue (car le nom de fichier peut varier) ensuite je copie des données de ce fichier et je les colle dans le fichier DB2.0.xls (fichier ou se trouve la macro).
Mon problème (en rouge dans la macro): je n'arrive pas à retourner dans le premier fichier ouvert par la boite de dialogue et à le fermer !

Merci d'avance !!!

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Top Line Datas").Visible = True

Range("B20").Select
Fichier = Application.GetOpenFilename

If Fichier <> False Then

On Error GoTo Erreur

Workbooks.Open Fichier


Range("b4:am84").Copy

Windows("DB2.0.xls").Activate
Sheets("top line datas").Select
Range("A1").Select
ActiveSheet.Paste

Windows(Fichier).Activate
ActiveWindow.Close

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

 

[Pierrot93]

Re : ouvrir un fichier excel et le fermer via macro

Bonsoir elioo

modifies peut être comme ci dessous :

[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

à tester...

bonne soirée
@+

 

[eliooo22]

Re : ouvrir un fichier excel et le fermer via macro

Merci +++ ca marche parfaitement