Fermer un classeur Excel à la fin d'une macro

Version imprimable

Bonjour,

Dans une macro je tape le code suivant pour faire selectionner un fichier:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim Fichier As Variant Fichier = Application.GetOpenFilename If Fichier = False Then Exit Sub Workbooks.Open Fichier 'Copie du fichier prix vers transfertprixversBDD ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sheets("transfert TE Prix filiales").Select Cells.Select Selection.Copy Windows("transfertprixversBDD.xls").Activate Sheets("Feuil1").Select Range("A1").Select ActiveSheet.Paste ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Je voudrais que à la fin de cette macro le fichier que j'ouvre avec Application.GetOpenFilename (celui qui contient la feuille :transfert TE Prix filiales") se ferme tout seul.

(le nom de ce fichier change tout le temps c'est pour ça que je le selectionne avec Application.GetOpenFilename)

J'ai essayé Fichier.Close et Fichier.Quit mais cela ne fonctionne pas.

30/06/2008, 16h54
ruzakruzak

Et

Code:

thisworkbook.close savechanges :=false

, ça marcherait ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Fichier As Variant
Fichier = Application.GetOpenFilename
If Fichier = False Then Exit Sub
Workbooks.Open Fichier
 
'Copie du fichier prix vers transfertprixversBDD
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Sheets("transfert TE Prix filiales").Select
    Cells.Select
    Selection.Copy
    Windows("transfertprixversBDD.xls").Activate
    Sheets("Feuil1").Select
    Range("A1").Select
    ActiveSheet.Paste
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

j'essairai ça

Code:

1
2
3
4
 
Application.DisplayAlerts = False
Workbooks(Fichier).save
Workbooks(Fichier).Close

Bonjour tlm,

Code:

1
2
Workbooks(Fichier).save
Workbooks(Fichier).Close

Ca va coincer, Fichier renvoie non seulement le nom du classeur mais son chemin complet également

Code:

1
2
3
4
5
6
7
8
Dim fichier As Variant, Wbk As Workbook
fichier = Application.GetOpenFilename
Application.ScreenUpdating = False
If fichier = False Then Exit Sub
Set Wbk = Workbooks.Open(Filename:=fichier)
Wbk.Sheets("transfert TE Prix filiales").Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
Wbk.Close
Application.ScreenUpdating = True

Merci c'est parfait!
Ce probleme allait au dela de mes competences Excel :)
Citation:
Envoyé par fring
Bonjour tlm,
Code:

1 2 Workbooks(Fichier).save Workbooks(Fichier).Close
Ca va coincer, Fichier renvoie non seulement le nom du classeur mais son chemin complet également
Code:

1 2 3 4 5 6 7 8 Dim fichier As Variant, Wbk As Workbook fichier = Application.GetOpenFilename Application.ScreenUpdating = False If fichier = False Then Exit Sub Set Wbk = Workbooks.Open(Filename:=fichier) Wbk.Sheets("transfert TE Prix filiales").Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1") Wbk.Close Application.ScreenUpdating = True