ouvrir un fichier excel et le fermer via macro

eliooo22

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : ouvrir un fichier excel et le fermer via macro

Bonsoir elioo

modifies peut être comme ci dessous :

Code:
[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
@+
 

Discussions similaires

Statistiques des forums

Discussions
312 114
Messages
2 085 432
Membres
102 889
dernier inscrit
monsef JABBOUR