Discussion :

[alex830001]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ruzakruzak]

Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbook.close savechanges :=false

, ça marcherait ??

[ilcocodrillo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour tlm,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alex830001]

Merci c'est parfait!
Ce probleme allait au dela de mes competences Excel

Bonjour tlm,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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